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` News and Reviews 


by Mike Dunn, Co-Editor 

We have received a number of phone calls from Atari explaining 
they are trying to produce the 800XL's and provide customer support. 
They are beginning with a new magazine, called The Atari Explorer, 
edited by Neil Harris, formerly an editor of a similar Commodore 
magazine. Mr. Harris appears to be very interested in customer sup- 
port as well as User Group support. Each issue will feature a User 
Group. The first will be ours since we were the first! They want to 
write about both large and small groups and show how they help Atari 
owners. At the present time, the entire customer support group con- 
sists of only 6 people, so Atari is very interested in supporting user 
groups all over in providing help such as our BugBusters we are trying 
to form. We want to have a list of people willing to help others by 
phone or mail. We'll put the list in the Newsletter with the hours 
you're available to be called. This will be for only as long as you wish, 
and hopefully we of ACE as well as other groups all over the country 
could set up a network to take the place of the support system former- 
ly supplied by Atari. 

Many new items are going to be available soon for the Atari 800XL. 
Rumor tells us our good friends at MicroBits in Albany, OR will be 
coming out with a 1200 BAUD modem as well as a hard disk with an 
OS by Bill Wilkinson of OSS. These will be sold at their usually 
unbelievably low prices! AXLON will be releasing the fabled expan- 
sion interface box for the 800XL and Batteries Included will add an 80 
column board. I don't know anything about any future Atari com- 
puters, but again doubt if they will have any compatibility with our 
800's. However for the price (now $170 and dropping), you can not 
beat an Atari system. 

There are new products coming out for the Atari now. Synapase has 
lowered the prices on all their products now if you get them direct 
from their office at 5521 Central Ave., Richmond, CA 94804. They even 
have very low prices on bulk orders for user group members. The Scar- 
borough System 25 N. Broadway, Tarrytown, NY 10591, has released a 
new improved MasterType for $40. They have a very nice line of pro- 
grams, including the fabulous Your Net Worth (see below). AMDEK is 
selling to user groups their 3" disk drives very cheaply. One of the 
members of the Portland Atari Group has been able to get hold of a 
large number of brand new Osbourne Executive computers, CP/M bas- 
ed portables with two disk drives, 7" Amber screen, 128K etc for only 
$895 with a ton of software. I bought one to go with my ATR 8000 
CP/M system. If anyone is interested, call Jim at 503-646-3467 for 
details. 

This month, we introduce a new regular contributor, Ralph Walden. 
Ralph will be writing a column for advanced users in Assembly 
language and C. He has modified the Deep Blue C from APEX, and the 
original author will allow ACE to put it our library for members! Not 
quite ready, but expect a lot on C in the future. Ralph likes C so much 
because he can use the same program for various computers, in- 
cluding big mainframes. He was also the first volunteer for the 
BugBusters for help in C and assembly language. 


Reviews 
. by Mike Dunn 
Your Personal NetWorth (Scarborough System, 25 N. Broadway, Tar- 
rytown, NY 10591, $80) 

Brought to you by the people who produced MasterType and other 
fine programs for a variety of computers comes this very comprehen- 
sive, quick and easy to use home accounting system. When the 
package arrives the first thing noticed is the very attractive presenta- 
tion of their produuct. It comes in a nice plastic box holding the 
manual, two disks, and in front, a real silver dollar, so if you spend 
your last penny on the package, you still have $1 worth of assets. The 
manual is a model for the industry in its clarity, not only about using 
the program, but the explanation of accounting in general. It explains 
assets and liabilities, as well as when and why to use each. Also in- 
cluded in the package is the book by Silva Porter on money manage- 
ment. 

After booting in the program disk, you begin by establishing your 
accounts. You have a choice of many accounts to use. There are 32 
expense accounts, 30 asset accounts, 16 liability accounts and 16 in- 
come accounts, plus you can add your own. You then begin by enter- 
ing your initial balances for asset and liabilies. You can make entries, 
post entries in a journal of accounts, make budgets, keep bank 
records, make inquiries, and print out your complete balance state- 
ment anytime you want. You can have as many as 10 bank accounts, 
350 different account categories, and up to 4000 transactions per disk. 
Other features include household inventory, stock portfolio analysis, 
all kinds of help features and trace features, easy bank statement 
reconciliation, and many other features too numerous to mention. 


Not only is the manual outstanding, there are many help screens to 
guide you in any operation. The screens are attractive and easy to use; 
the special features of the Atari are well utilized, a surprising feature 
in a program available for many computers. The program is written in 
machine language and all operations are fast! If you need such a pro- 
gram, plan on spending several hours entering all your original ac- 
counts and data, then it is very easy to keep it up. A perfect program 
to get for the New Year, and then next year, to get your complete 
balance sheet, as well as all your income tax information, just press a 
button!! 


The XL Boss (Allen Macroware, POB 2205, Redondo Beach, CA 90278, 
$80) 

From the makers of DiskWiz and PrintWiz comes Jerry Allen's first 
hardware project. This is a chip for the 800XL or 1200XL (different one 
for each) — an OS replacement. It allows you to run almost all of the 
Atari Software without having to use the translator disk. Other 
features include not having to hold down the OPTION key to de-select 
BASIC, the ability to select the “hidden” 4k of RAM for word- 
processors, spreadsheets, etc., and, most interesting, the ability to 
have a RAM rather than ROM operating system. You can then easily 
customize your operating system as you wish, without having to burn 
an EPROM, etc. You can also use this feature to load in Jerry's 
monitor program MacroMon XL, then using the warmboot command, 
boot in any disk, switch back and forth from the monitor to the pro- 
gram, and see how they do various tasks on commercial boot pro- 
grams. This monitor, besides the usual functions, has split screen 
capabilities to compare two parts of memory, has a find command 
can read and write directly to the disk. 

The manual gives you ideas on how to modify your OS, such as 
changing the cursor arrow keys to work without the shift key. As Jerry 
always has done, the chip will be updated occasionally; the first one 
out in 2 weeks to allow you to shift back and forth from the standard 
OS and the Boss XL, so if anyone comes out with an expansion box, 
etc., you can use it. 

In using the chip, I find most programs will load in and run, but 
some of the older commercial terminal programs didn't. The manual 
says to switch back and forth between the various options of the XL 
Boss and the Monitor, when using the function keys, to push the keys 
just right — so true! The keys are very touchy and need to be pressed 
the way Jerry states, not because of the chip, but because the keys 
are not the best quality and are touchy. The installation of the chip in 
my 800XL required taking the entire computer apart, but the total 
operation was easy and well explained; it took about 20 minutes. The 
1200XL model is $10 more. 


PrintWiz (Allen Macroware, $30. 

This is an update of the program we have used for quite a while to 
dump the pictures seen in ACE of our programs. Present owners can 
send their old disk in and get the upgrade for only $5. New features in- 
clude adding the DMP-80, Panasonic KXB1090, Mannesman-Tally 
Spirit 80 & IDS MicroPrism printers to the Epson, Nec, Prowriter and 
Okidata already supported, a program to directly use Atari Paint and 
Koala Pad files for dumping and using the LOGO cartridge with Print- 
Wiz. Jerry will continue to update the program and provide those up- 
dates at a nominal charge to present owners. 


PILOT Directory 


A number of articles and programs have been written about access- 
ing the disk without going to DOS in BASIC. One useful thing for a 
programmer is to look at the contents of the disk without losing your 
program. 

Loading and saving in PILOT is a more lenghthy task than in BASIC 
since the type of “save” used is actually a LIST to disk. Unless you 
have monkey wrench or OS/A + you can use up about two minutes go- 
ing to DOS, using memory save, and returning to PILOT. 

DIR is a 17 line mini program letting you LOAD and then type 
J:*DIR to run. It takes about two seonds to load and another few 
seconds to run. The total time required to access the disk is about five 
seconds the first time and two seconds once the program is in your 
Atari. The line numbers used are the last twenty usable in PILOT 
(9980-9999). If your disks have less than 40 files you may shorten this 
program by (9 lines) deleting the counter and page turner routine. 

— Carl Schwartz 


BUMPAS REVIEWS 


The Writer's Tool (OSS, $99 until Dec. 31, a $30 discount) is a 
cartridge-based word processor of 20k with a disk containing utilities, 
demos, and configuration files for numerous printers. This is a full- 
function program which will meet the needs of the busiest writer. Yet I 
believe it is easy enough to use in its default configuration for anyone 
familiar with a typewriter. 

You need at least a 48k system and a disk drive. Double density 
drives are supported. Atari, Epson, Gemini, Prowriter, NEC, Okidata 
and Comrex printers are directly supported by configuration files pro- 
vided on the disk. There is also a “generic” printer file for all others. In 
addition, you may put printer control codes directly into a text file in 
order to use unsupported printers more fully. It usually takes 6 
keystrokes to toggle these unsupported features, but with a printer 
like mine (IDS480) you're just happy to be able to use the features at 
all! 

OSS informs the user of one known bug: double-wide printing is not 
properly supported when the line is justified. Double-wide printing 
works fine in any other context. I think they mean only to speak of 
supported printers here, because | experienced anomolous behavior 
in any line in which I combine double-wide with any other printing. I 
must say this same experience occurs with any word processor I’ve 
used for unsupported printers. 

The opening screen permits the user to begin typing text im- 
mediately. A prompt at screen bottom tells you to press the Option 
key for the main menu. All full-function word processors should start 
you off this way. But OSS is one of the few to do so. OSS has provided 
the most extensive set of cursor controls l've ever seen on a word pro- 
cessor for the Atari. In addition to the usual Tab and cursor arrows, 
you can move to Beginning or End of file, beginning or end of a line, 
beginning of the next line, beginning of the next word, and beginning 
of the next page or the previous page. The cursor may also be moved 
by the search process. During a save operation to disk, if the cursor is 
not at the top of file, you will be warned only part of the file will be 
saved. If you answer “Y” to the prompt for saving all the file, the cur- 
sor will then move to top of file. You can also choose a block or 
underline cursor, and you can adjust the rate at which the cursor 
flashes. 

Editing can be accomplished easily in either an insert mode or a 
typeover mode. In addition to the usual insert commands, you can 
also insert all available space (pushing all text after the cursor to the 
end of the 24k buffer), allowing you to type in some material and then 
delete all space to the next character to close up the gap. Most 
editing commands require only one or two keystrokes, and this is 
where you'll find the economy of keystrokes the most important. Two 
keystrokes will also “undelete” the last line deleted. This is a nice 
feature. Previously entered text can be converted to upper or lower 
case automatically with a 2-keystroke control sequence, saving you 
some re-typing. The search and replace function also provides a 
means to delete strings of text by failing to replace the string. You 
may also delete all text before or after the cursor. 

Block operations allow moving text by copying a block to a new 
location, then deleting the original block. Blocks are highlighted in in- 
verse video. A status line at screen bottom will show you when in- 
verse video is active, and when the caps lock key is active. You are 
also told how many characters and words are in the buffer, and how 
much space remains. 

Supported printers with the capability can print in the following 
modes: emphasized, double-wide, italics, double-strike, underline, 
super- or sub-script. In addition, “split justification" (dividing a line at 
any point, with characters to the left blocked left, those to the right 
blocked right), soft hyphens (not used if the word fits in a line) and 
hard spaces (forcing characters split by a space to be printed on the 
same line) are available for your use. 

Headers and footers can be set to any number of lines and can con- 
tain any editing or formatting commands available in the rest of text 
with the addition of page numbers. The printer can be directed to stop 
at any point (to change print wheels, for instance). 

Dynamic page breaks are not displayed in the editing mode, but on 
the print menu you can preview the printed text to see where the page 
breaks occur. Print formatting commands include all the usual page 
and line lengths and spacing, footer placement, centering, tabs, 
margins and indentations. But they also include page eject, condi- 
tional page eject (to make sure certain lines may be printed on the 
same page), and alternating the sides of split justified lines on even 
numbered pages. A page wait command is available for single sheet 
printing. And double-column printing is accomplished by the simple 
expedient of telling the program how many spaces you want between 
the two columns. All your other formatting commands are adjusted 
automatically for the second column! (This is a great feature!). Two or 
more files may be “linked” together for chain printing. 


The program makes good use of sound to warn of errors and to note 
different actions. There are 20 custom error messages to lead you to 
the correct action after a mistake. A buzzer warns and the prompt is 
re-displayed upon any other error. A Basic program is included on the 
disk to create custom “macros” to set formats you commonly use and 
which differ from the defaults provided. The 174-page manual comes 
in a yellow vinyl 3 ring binder and describes how to incorporate 
graphics into the body of your printed text. An errata sheet also pro- 
mises the future ability to program key sequences to translate to 
graphic sequences. The example they give is Control-C might be used 
to print copyright symbol. They are also working on developing con- 
version programs to use to print graphics from MicroPainter, Koala 
Pad, Atari Artist Pad, etc. files within your text files. If you buy the pro- 
gram now, you will receive the next update free of additional charge. 

| like this program. The relatively high price may keep it out of most 
people's libraries since other full-function word processors can be 
purchased for as little as $50. But for someone who does a lot of 
writing on the Atari, this program will pay for itself with its quality. 


SynTrend (Synapse Software, $70) is a two disk package for 
graphing, statistical analysis and forecasting. Those familiar with Syn- 
Calc and SynFile-- will recognize the pull-up menus which lead you 
through the program. A student of statistics, or someone using 
statistics a lot may find this package very helpful. 

The two disks contain the programs SynStat and SynGraph. 
SynStat is really a spreadsheet with some partiularly special func- 
tions for use in statitical analysis. SynTrend is fully compatible with 
SynCalc and SynFile--, and with VisiCalc. Once the data file is 
created or loaded into the program, the “Analyze Data" option օո the 
menu. The program then lists all the variables (column labels in the 
spreadsheet) you used. Picking one, the choice of "Descriptive" will 
show the number of entries in the column, their average, standard 
deviation, variance, standard error, minimum, maximum, and range. 

The other analysis performed by SynStat is "Regression" analysis. 
For this mode you select one variable as a dependent variable and one 
or more independent variables. This mode is designed to show the 
relationship between variables. The screen shows calculations for 
coefficient, standard error, Rsquared, and AdjRsquared. The manual 
advises the user to refer to a text book on statistics if these terms are 
not familiar. 

The results of regression analysis may also be shown on a screen 
titled "Residual Analysis". Here columns showing the actual entries, 
together with the predicted entries and the difference between actual 
and predicted (residual). Any of these screenfulls of calculations can 
be dumped to a printer. 

SynGraph is used to create labeled, high resolution, color-coded 
graphs from data entered in SynGraph, SynStat, SynCalc, SynFile +, 
or VisiCalc. You may choose a line graph, bar graph, scatter plot, or 
pie chart. The bar graphs may be of the cluster or stacked types. 
Graphs may be rescaled and relabeled. Up to three factors at a time 
may be placed on the same graph. The graphs may be saved in disk 
files for later use, or dumped to a compatible printer. 

This is a fun package to use. And for small business use, one might 
find it helpful for analysis of sales data. If you're a student, the printed 
output will make your papers and projects very profession! indeed. 


Christmas Bazaar: Our December 12 meeting will include a bazaar. 
You may bring any software (originals with full documentation only!) 
and hardware you want to sell or trade. You may set up your wares on 
a table, or browse among the tables. This will also be a benefit for 
WISTEC. You may keep all the proceeds you receive except for 10%. 
The club will record the amount received from each person and 
WISTEC will give you a receipt you may use for your taxes. 

Last month Stephen Warn reviewed S.T.A.R.P.A.D. and omitted 
price and vendor information. He-sends it for this issue: DaVinci Soft, 
4414 Murrayhill Road, Charlotte, NC 28209 (704) 523-2460. $35.00. 

. — Jim Bumpas, co-editor 


CLEAR FOR ACTION 


Clear for Action (Avalon Hill, $30) is a game of fighting ships during 
the age of sail. You have the option of playing any one of twelve dif- 
ferent scenarios, or creating your own. In addition to creating your 
own scenarios, you may also design your own ships. The manual 
recommends you follow the general ship guide for criteria. This guide 
provides you with a list of standard ships of this time period and their 
various characteristics. As captain of one or more sailing ships you 
may play either the computer or another person. As this program is in 
Basic, playing the computer is a little slower than playing with a live 
opponent, but no less challenging. 

The game itself is played on two screens which are alternately 
displayed. The first screen is a strategic level view of the situation. It 
shows the current sailing orders for all ships. Each ship is depicted by 
a number on a dot matrix grid. As the captain of a vessel you may 
change direction and sail configuration at this time. 

The next screen is a tactical level screen. This shows each ship by 
a graphic display and gives its current relationship to every other ship. 
To one side of this grid you see a ship's outline, complete with rows 
of cannon. In the middle of this silhouette may be found four boxes. 
Each box depicts the current type of load for that broadside. After fir- 
ing a broadside you are able to load with one of four types of shot. 
Each has different ranges and effects on your opponent's ships. It is 
on this page that you are given the opportunity to fire on your oppo- 
nent's ship. After this you may go to a third text page, on which you 
may move crew sections from one of your four ship areas to another. 
Each of these areas controls the performance of either sailing or 
fighting your ship. Then you may proceed to the first screen and start 
the cycle over again. 

I found this game to be easy to learn yet quite challenging to play. 
Avalon Hill has documented the game in two easily understood 
booklets. The first explains the basic game mechanics and allows you 
to proceed immediatley to play. The second booklet lists ships, 
scenarios and various charts depicting the probablity of such oc- 
curances as fouling, grappling, sailing speeds, crew functions, morale 
etc. I have only two complaints about this program. It is difficult at 
times to tell just where on the tactical screen a move on the strategic 
screen will place you. Thus, I have found myself continually getting a 
full broadside when I had thought I would clear my opponent's arc of 
fire. My second complaint, which in no way detracts from the game's 
playability, is the simplicity of the graphics and sound effects. One of 
Atari's strongest aspects is the quality of the sound and graphics 
which it may produce. An excellent game like this deserves the best 
graphics possible. 

| highly recommend this game. It is one which can be played for 
many years and still be challenging. 

— Nick Chrones 


LET'S TALK CONTROL 


(Reprint: The Escape — Little Rock Atari Addicts) 

About once a year, whether I need to or not, I enter DOS and rename 
a file to a filename already existing on the disk. If you've ever done 
this you know what the problem is. You've got two files on the same 
disk, both with the same filename. If you try to change one, DOS 
changes both. If you try to delete one, DOS deletes both. If you try to 
load once, you only get one but it's the first one in the directory. 

Is there a way to recover the other file? The answer is yes. The pro- 
gram listed below is called ALTERDIR (alter directory). It will read the 
disk directory directly from the disk (without the help of DOS), allow 
you to change any filename, and write the altered directory back out 
to the disk. The machine language subroutine in the program is a disk 
handler allowing you to do all kinds of things to disk data. In this case 
it is set up to read the 8 sectors of the disk directory. After you have 
entered your changes the POKE on Line 2070 changes the ML routine 
to write the directory data back to the disk. 

This is not a program you'll need every day, but the day you do 


you'll be glad it's around. 
— John David McFarland 


6502 DISASSEMBLER 


One thing which can really help a machine language programmer is 
a disassembler to print out his or somebody else's code. If you don't 
have one, it's not worth $30 to buy a disassembler limited to listing 
code from memory or disk file only. A disassembler may sound easy 
to make, but it isn't. 

There are 56 different 6502 ML instructions, some have only one 
form, but most have up to four different forms performing up to four 
different things. Because of the number of possibilities, it isn't prac- 
tical to use upwards of 120 different IF-THEN statements. 

լո my disassembler, rather than using ten million IF-THENs, I used 
a big string subscripted into 4 byte chunks holding the 3 letter ML in- 
struction and an option byte. The option byte tells the program what 
form to use in the disassembly. The disassembler looks up the in- 
struction by taking the number it is trying to disassemble, multiplying 
it by 4, and subtracting 3. This gives the instruction's location in the 
string. The rest is easy; decode the option byte, get any other bytes 
needed to complete the form of the instruction, and print it. 

Type in the program, SAVE it and RUN it. The program will set up 
the string and prompt you from where to disassemble. If you choose 
the disk option, a disk directory will come up. Then enter a BINARY 
LOAD file name. Take care to see the # of sectors in the file isn't 
greater than the available buffer space, or when it loads, the program 
will probably crash. If you chose the memory option, enter the start 
address in hex or decimal. If you use hex, precede the address with a 
'$'. Next, choose where the output will go. If you choose the printer, 
be sure it is ready BEFORE you press P. If you type D, enter a 
filename and hit return. The resultant file will be text, but it will be 
pretty long if your source code is good sized. 

When the program is disassembling, pressing any key will pause it. 
Then press START to exit back to the start of the program. Press 
SELECT to continue the listing, or press OPTION to end. 

— Greg Menke 


FORKLIFT 


In the October issue of ANALOG magazine Tom Hudson presented 
a routine for printing text in graphics 8 mode (Graphics 8 Character 
Generator, p. 57). l've modified the routine so you can print blocks of 
characters using the call A=USR(ADDR,X,Y,BADR,SIZE,WIDTH) 
where: 

ADDR is the address of the string holding the routine (see lines 
4000-4100) 

X is the X position as in graphics O (0-39) 

Y is the Y position as in graphics 8 (0-152) 

BADR is the address of the string holding the block of characters to 
be printed 

SIZE is the number of characters in the block 

WIDTH is the number of characters in each horizontal row of the 
block 

l've used the routine in a program called 'Forklift'. The object is to 
take three rhyming words from a pile of seven on the left and stack 
them in a pile on the right. A joystick in port #1 controls the forklift. 
The words can only be placed down in either the left or right pile so a 
little planning ahead is required 


INA WORD 


This little quicky is a scrabble type game in LOGO. The BEGIN 
module sets the counters to 0 (SCORE and VALUE). The SCRABBLE 
module takes a letter input and gives it a value by using the LETTER 
module. The * is used to denote the end of the word being played. We 
could have used the IF ( OR ( :CHAR ) = "A etc. in the LETTERS 
module, but felt that it made the program run slower. The SCORE 
module does the arithmetic to give the score in a word. Now we can 
see how much those $10.00 words we use at our house are really 
worth. 


— Stan Ockers 


— Ruth Ellsworth 


RU WS pilot 


TO BEGIN 

MAKE “SCORE 0 

MAKE "VALUE 0 

PR [TYPE A WORD DO NOT TYPE RETURN. TYPE AN * AT THE END 
OF THE WORD.] 

SCRABBLE 

END 


TO LETTERS :CHAR 


IF :CHAR = “A [MAKE “NUM 1] 
IF :CHAR = "B [MAKE "NUM 3] 

IF :CHAR = "C [MAKE "NUM 3] 

IF :CHAR = "D [MAKE "NUM 2] 
IF :CHAR = "E [MAKE "NUM 1] 

IF :CHAR = "F [MAKE "NUM 4] 

IF :CHAR = “G [MAKE “NUM 2] 
IF :CHAR = "H [MAKE "NUM 4] 
IF :CHAR = “I [MAKE “NUM 1] 

IF :CHAR = “J [MAKE “NUM 8] 

IF :CHAR = “K [MAKE “NUM 5] 
IF :CHAR = “L [MAKE “NUM 1] 

IF :CHAR = “M [MAKE “NUM 3] 
IF :CHAR = “N [MAKE "NUM 1] 
IF :CHAR = “O [MAKE "NUM 1] 
IF :CHAR = *P [MAKE "NUM 3] 

IF :CHAR = “Q [MAKE “NUM 10] 
IF :CHAR = "R [MAKE “NUM 1] 

IF :CHAR = “S [MAKE “NUM 1] 

IF :CHAR = “T [MAKE “NUM 1] 

IF :CHAR = “U [MAKE “NUM 1] 

IF :CHAR = “V [MAKE “NUM 4] 

IF :CHAR = “W [MAKE “NUM 4] 
IF :CHAR = "X [MAKE “NUM 8] 

IF :CHAR = “Y [MAKE “NUM 4] 

IF :CHAR = “Z [MAKE “NUM 10] 
IF :CHAR = “* [START] 

END 


TO SCRABBLE 
MAKE “CHAR RC 
LETTERS :CHAR 
PR :CHAR 

TYPE “1% 

TYPE :NUM 

PRD 

SCORE 
SCRABBLE 

END 


TO SCORE 

MAKE "VALUE :VALUE + :NUM 
MAKE "SCORE :VALUE 
SCRABBLE 

END 


TO START 

TYPE “1⁄2 

TYPE “12 

TYPE “% 

TYPE” 

TYPE [YOUR SCORE IS] 
TYPE "նշ 

TYPE :SCORE 

MAKE "VALUE 0 

MAKE "SCORE 0 

WAIT 100 

CT 

PR [TYPE A WORD. DO NOT TYPE RETURN. TYPE AN * AT THE END 
OF THE WORD.] 
SCRABBLE 

END 


MAKE "END "E 

MAKE "CHAR “* 
MAKE "RHYME "E 
MAKE "WORD2 "THRE 
MAKE "NEXT "E 
MAKE "WORDS “THR 
MAKE "THIRD “R 
MAKE "RHYME2 "E 
MAKE "NUM 1 

MAKE "SCORETWO 0 
MAKE "TOTTWO 0 
MAKE "SCOREONE 11 
MAKE "TOTONE 21 
MAKE "VALUE 8 
MAKE "SCORE 8 
MAKE "PLAYER 1 





i REM > THIS ROUTINE ALLOMS THE USER T 

ü 

2 REM > CHANGE THE FILENAME OF NORMAL 

I REM > DISK FILES. IT READS AND WRITE 

5 

4 REM > DIRECTLY FROM & TO THE DISK 

5 REM > DIRECTORY. 

6 REM > 84/13/84 JDM 

3 REM 

ið KEY-928 

28 6.188 

48 PRIMT:PRINT:PRINT"Potential fatal e 

rror":PRINT"Try again":FOR X-1 TO 288: 

NEXT #:6.2828 

58 PRINT CHRS(175) :PRINT:PRINT:PRINT"f 

inished....":POKE 752,8:END 

70 FL-1:PRIMT CHR$3125) 

7i PRINT" Ա 

72 PRINT:PRINT"entry # filename 
Size": PRINT 

75 RET. 

98 K-8:TRAP 02:INPUT K: TRAP 48888 

92 RET. 

94 INPUT HI, T$:RET. 

99 REM 

188 DIM DDIRS(1828)1,T$9(12) :DDIRS=" ": 

DDIRS(1828)-" ":DDIRS$92)-DDIRS 

185 OPEN HI,4,0,"E:":POKE 752,1:Ք05,2, 

7:PRINT"a moment please.... 

118 FOR 171536 TO 1536+59:READ BYTE:PO 

KE I,BYTE:NEXT I:REM SET UP ML ROUTINE 

128 PRIMNT:PRINT:PRINT"Insert disk in D 

rive 1":PRINT"and press RETURN)"; :605 

.KEY 

1888 REM 

1881 REM > DISPLAY ROUTINE < 

1882 REM 

1818 EK-USR(CISZ6,ADR(IDDIRS)J:REM READ D 

ISK PIRECTORY 

1028 1-8 

1058 IF J)63 THEN 58 

1855 605.78 

1868 U-ASCCODPIRS C1*16*J,1*16*,2) 

1878 IF U-66 OR U-98 THEN PRINT J+i;" 

2" ,PPRIRSCDT16xXJ, 13.163) i", P: DDIRS( 

14t16XJ,16*16XJ) ;" 25 

i888 IF U-66 OR U-98 THEM PRINT A5C (DD 

IRSC2+16%J,2+16%J))+256*45C CODIRS (2416 

XJ, 31162) 

1885 J-Jti 

1898 FL-FL*i:IF FL<i? THEN 1868 

1118 P05.2,22:PRINT"Type entry # or (R 

ETURN) ";:G0S.KEY 

1128 IF K-8 THEM Fi-ci:G.1858 

2888 REM 

2081 REM > CHANGE AND WRITE 


GOTO i88 
REM STRINGER - a utility to enter 


REH String Declaration Statements 


8 
1 
2 
£ REM HJTTET TE 13835 SE 
4 
s 
ծ 





REM Written by Rick GrosZzkiewitz 
REM .. Belete Backup File 


TRAP 8:KIO 31,11,8,8,"D: STRINGER. BAK 





7 REM .. Rename file to backup 

8 TRAP 18:XIO 32,81,0,0,"O: STRINGER, ST 
RINGER. BAK" 

3 REM .. Now save new program 

i8 SAVE "D:STRINGER":TRAP 48888:5TOP 
98 REM 

95 REM 
188 REM 

185 GRAPHICS 17:POKE 712,96:POKE 711,2 
38:;POKE 718,68:POKE 789,174;POKE 788,1 
52 

118 PL-PEEK(568) *256XPFEK (561) 

115 POKE DL*3,71:POKE DL*18,7 

128 ? իճ" մարան" 

125 ? tb:? ti6;" HTEXAD :? 55:7 
HŠ 

158 ? H6;" AST 

135 ? Hb:? HB 

148 7 46:? Hn6;" à UTILITY" 

145 7 86:7 H6;" FOR ENTERING" 

158 7 #6:? H5;" STRING STATEMENTS" 

155 7 86:27 15:7? 16:7? HS 

168 7 #5:? H6;"press start to begin" 
138 REM 

195 REM նանի Cease 111 Է 
288 REM 

285 DIM PMOVES (44) , CURSORS C11) , STRINGS 
(32) , PRS (1381, MENS (83) , SCREENS C888) , HO 
IR(IS),YDIRÍII5) 

218 POKE 82,1:POKE 83,39 

215 OPEN 112,4,8,"K:" 

228 PHMOUES-"hS hI Late) AMT, 
AMP UR CAT ONL T" 


238 MENS = DAET TETEE 
HSE AE HYATT 
235 PM-ADRIPMOVESJ : CURSOR-ADR (CURSORS) 
248 SCREENS-" ":SCREENS(888)-" ":SCREE 
NS (2) -SCREENS 

245 IF PEEK(51273) O 6 THEN 245 

258 REM 

255 GOSUB 5008 

258 REM 

438 REM 

435 REM 

508 REM 


585 REM GEL EMU EE, 


STRINGER 


518 IF PEEKIDMEM+821) O 255 THEM A=USRC 
ADR (HEMS) , ADR (SCREENS) , DMEM+160, 888) 
515 ST-STICK(8) 

528 TR=STRIG 001 

525 REM MATES 

530 H-HDIRCST) 

535 HORZ-HORZ*K 

548 IF HORZ(49 THEM HORZ=201 

545 IF HORZ)281 THEN HORZ=49 

358 REM 
555 OLDU-UERT 

568 Y-YDIRCST) 

565 UERT-UERT*Y 

578 IF UERT(79 THEN VERT=191 

575 IF UERT)191 THEN VERT=73 

580 REM 
585 POKE HP,HORZ 

538 IF Y THEM A-USRCPM, CURSOR, OLDU+PA, 
VERT+P8) 

595 REM 
688 IF X OR Y THEN POKE 53279,1 

685 REM [RETTIG a TEEN 
618 N=2+(HORZ-53)/4 

615 Y-8t UERT-95)/8 

628 POKE 784,PEEK(28) :POKE 16,64:PQKE 
53774,64 

625 POSITION K,Y:GET #i,A 

658 POSITION X,Y:? CHRS (271 ;CHRS CA); 
615 KEY-B8:Z-PEEK(764):IF Z=255 THEN 67 
5 
648 
645 





REM MA KEYBOARD FOR 248 SER 
IF Z-52 THEM GOSUB 2888:60T0 675 


658 REM CHECK FOR LOGO/CAPS/CTRL KEYS 
655 IF 7-68 OR Z-124 OR 7-188 THEM POK 
E 764,255:POKE 782,27-58:60 TO 675 
668 IF 72-22 OR 7-105 OR 2-167 THEM POK 
E 764,285;:POKE 694,128-PEEK (634) :60 TO 
575 
665 
678 
675 
588 
685 
638 


GET #2, A:KEY=1 

REM eee ETT 
IF PEEK(532791=6 THEM 1900 
REM TRIGGER, PRINT STRING CHAR 
IF TR AND ( NOT KEY) THEM 508 
POSITION COL, ROM 


STRING 


695 7 CHR$(27);CHRS$ (A); 

788 COL=COL+1 

785 IF COL)39 THEN COL-2:ROM-ROH*1 
718 PRSCLENCPRS3 * 1D CHRS Cà) 

715 FOR I-i8 TO 1 STEP -3 

728 SOUND 8,8/5418,18,1 

725 NEXT I 

730 SOUND 8,8,8,0 

755 GOTO 588 

1888 REM 





1805 REM IG bea eee EBERT EOS 
1840 REM 


1915 
1020 
i825 
1838 
1835 
1848 
1845 
1858 
1855 
1868 
1865 
1878 
1875 


POSITION 1,4 

2" fre you sure?? 

POKE 764,255 

IF PEEK(7643=255 THEN 1038 

A-PEEK (764) :POKE 764,255 

IF 8-45 THEM 1868 

POSITION 1,4 

? "Press FILER to save string" 

SOTO 588 

? CHRSC(125) :POKE HP,8 

PRS CLEMCPRS) +1) -CHRS C242 

FOR 1-1 TO LENCPRS) 

? CHRS (27) :PRSCI, II: :MEKT I 

1888 REM 

i885 LEMTH=LEMCSTRINGS)-1:IF LENTH)I T 

HEN LENTH-I:POSITION 2,8 

1898 ? :7 "CLOSE HI:0PEN H1,8,8,"; 

1895 REM 

1188 IF PEEK(128)1256XPEEK (122) (6888 T 

HEM ? CHR$GC34);"C:";:60 TO 1115 

1185 ? CHR$ (41 ;"D:''; 

1118 ? STRINGS €1,LENTH) ; NUMBER; "=. STR"; 

1115 ? CHR$(G4);":PRINT HISPRS:"; 

1128 ? " CLOSE 11':? ;? ;? “ROMS? :? 

1125 ? ;? "HIT RETURN KEY AND" 
? 
7 
? 


(Y/N)" 


1136 ? "THE STRING WILL BE" 
1115 ? "SAUED AS SHOMM ABOVE" 

1148 ? :? "HIT RETURN AGAIN TO RERUN” 
1145 POSITION 8,7 

1158 POKE 752,8 

1155 END 

2000 REM 

2885 
G 
2018 
2815 
2828 
2825 
2818 
2035 
2048 
2845 
2058 
2055 
2068 
2065 
3000 
3005 
1018 
5815 
1828 
POKE 
3825 
1816 
3815 
3040 





REH 

COL-COL-I 

IF COL=1 THEN COL=39:ROM=ROM-1 
POSITION COL, ROM 

? CHRS (273 ; CHR$ (32) ; 

PRS CLEN CPR$1 ) z''" 

FOR I-i8 TO 255 STEP 48 

SOUND 8,1,18,1/17 

NEXT I 

SOUND 8,8,8,8 

POKE 764,255 

RETURN 

REM 

REM JETS UDE - ԲՆ Նա 
REM 

Z=4+16*INT CRND (1623216) 
GRAPHICS 8:POKE 712,Z:POKE 740,Z: 
782,14 

POKE 752,1:7 
PMBASE-GHINT (PEEK (5613 83-8 
P8-256* CPHBASET4) 

POKE 784, 14435716 





seringer son% 

3045 HP=53248:POKE HP,8 3295 POKE 764,255 
i858 POKE 53277,3 3388 IF PEEK(764)-255 THEM 3308 
i855 POKE 54279, PMBASE 3305 POKE 764,255 
3060 POKE 559,62 4088 REM 
5865 VERT=-135 4885 REM Անա Sob EO: Å, 
3878 HORZ-125 4818 REM | 
3875 A-USR(CADRCMEMS) ,8,P8,256) 4815 OPEN #1,12,8,°5:" 
3888 REM 4828 POKE 559,62:POKE 752,1 
i885 REM BAMSE 018է611085 4825 SETCOLOR 1,8,8:SETCOLOR 2,8,18:5E 
5038 REM TCOLOR 4,8,18 
5825 DATA 8,8, 8,8, 8,8, 8,8, 4,8,4 4818 POSITION 2,6:FOR 1-8 TO 127 
78, 4,8, 8,8, -4,8, -4,-8, -4,8, 8 4015 REM (PADLE GRO USES 
,9, 8,8, 8,-8, 8,8 4840 IF I-34 THER ? "ü ";:6070 4858 
3188 RESTORE 3095 4845 ? CHR$ (27) ; CHR$CT) ;" ": 
3185 FOR 1-1 TO 15 4850 NEKT I 
1118 READ ¥,Y 4855 FOR I-129 TO 136 
5115 XOIRCII=# 4868 ? " "իէ I 
3128 YDIR(I)-Y 4865 ? 
3125 WEKT I 4870 FOR 1-8 TO 127 
51358 REM 4875 REM Մատա Լոր GE TEU ES ԵԷ): 
S135 REM PLE ee ETE OTTER 4888 IF 1-27 THEM ? " ";:6070 4898 
1148 REM 4885 ? CHRSC27)  CHRS (141281 ;" ": 
3145 ? "PLEASE ENTER THE FOLLOWING ITE 4090 NEXT I 

"SPOKE 752,8 4895 REM PAGE ETA Ga ESSET 
3158 POSITION 1,3 4188 RüHM-8:COL-LEN (PRS) +2 
3155 7 "LINE NUMBER 7312888" 4105 POKE 82,2:POSITION 2,8 
21608 POSITION 1,5 4118 7 PR$ 
i165 ? "STRING MAME  ?DUMMYS" 4115 POSITION 1,4 
1178 POSITION 1,7 4128 ? "Press to save string" 
5175 ? "STRING START ?881" 4125 REM 
ii88 POSITION 1,9 4138 REM 
3185 ? "Your result will look like:" 4135 REM HS SLUG SE UTE 
1138 ? 37 "72000 DUMMYSTII-":CHRSTI4: 4148 REM 
"an unprintable string" ;CHR$ (34) 4145 DL-PEEK(568)*256XPEEK (561) 


3195 TRAP 3195 

3288 POSITION 14,3: INPUT TEE 

3205 TRAP 3205 

1218 POSITION 14,5:INPUT STRINGS 

3215 IF STRINGS(LEN(CSTRINGS1) (“$u THE 
N STRINGS (CLENCSTRINGS) t1) -"$" 

3220 TRAP 3220 

3225 POSITIOM 14,7:INPUT START 

i238 TRAP 48888:POKE 752,1 

3235 PRSISTRS (NUMBER) 

3240 PRSENCPR2) £1)-" H 

3245 PRS CLENCPRS) 413 STRINGS 

5258 PRSCLENCPRS) +1) =" ¢" 

3255 PRS CLENCPRS) +1) -STRS CSTART) 

3260 PRS CLEMCPRS) t1) =") =" 

3265 PRS CLEWCPRS) 41) -CHRS C34) 

i278 POSITION 1,15 

i275 ? "Your output will be:" 

3288 ? 
CHR$ (34) 

3285 ? :? "PRESS ANY KEY TO CONTINUE" 
3238 ? " արք SEG (ճամ UD 808" 


:? pR$;"an unprintable string"; 


4150 DMEM-PEEK (ԷԼ t4) 1 256XPEEK (0145) 
4155 A=U5R (ADR (HEMS) , DMEM* 158, ADR (SCRE 
ENS) , 868) 

4158 POKE HP, HORZ 

4165 A-USKIPM, CURSOR, @, VERT +P 83 

4178 RETURN 


FILOT DIE 


3398 201Ք T;&K 
3391 C:8B718-188 

9992 C:SDIR-D:X.* 

3993 C:8B1171-7 

3394 XDIRLOGOP READ:SDIR SFNAME 
9995 J(8228-130):9*EQ0F 

9996 T:SFNAME ` 

9997 J:*DIRLOOP 

3938 HEOF CLOSE: SDIR 

9999 E: 











2882 REM 
2828 TRAP 40:PRINT CHR$(125):PRINT"YOU 
may now alter the filename 

2018 PRINT"listed below. Se sure te k 
pep the ":PRINT'"proper Spacing.":POKE 
752,8 

2848 PO5.2,7:PRINT DPDIRS(OtÍGK(K-1),1: 
*16XCK7132 ; D  DDIRS C144316X CC 12, 16416 
K(K-122 ; PRINT CHRSUC272; : PRINT. CHRS (38 
) 

2858 PRINT"-------- ---":p05.2,7;PRIN 
T CHRS CID ;:PRINT CHRSCS80); :GÜ0S. KEY t4 
2855 IF ASCCTS) (65 OR 85Ը(153)38 THEN 
48 

2968 T$C9T$ C18) :DDIRS (6*16* (K- 12, 16* 16 
X(GC-1))-T$ 

2878 POKE 1542,88:X-USR(I536,0DRCDDIRS 
32:6.58 

5888 REM 

5881 REM > BATA 

5002 REM 

5828 D.104,169,1,141,1,3,169,82,141,2, 
2,184,141,5,2,104,141,4,3,162,185,141, 
18,3,169 

5810 b.i,141,1i1,35,169,8,141,255,6,32,8 
1,228,24,173,4,3,105,128,141,4,3,144,4 
5815 0,258,5 

5848 D.2,2328,18,1,286,255,6,2808,231,596 





STAN OCKERS FORKLIFT 


18 DIM PHMSC(1):REM 390 ENTER THIS LINE 





FIRST ste 

28 REM 

i8 REM X FORKLIFT * 
48 REM X Գ. OGKERS * 
98 REM X 18/84 * 


RG REM XHSOQOHGOUCIOCOCRDOHOHOOHOO|CE 

78 REM ACE Newsletter, 3662 Vine Maple 
Pr. 

Bü REM Eugene, ՍՔ 97405 Nov 84 512 yea 

r 


188 GRAPHICS 18:POSITION 7,5:7 H5;"Fofd 558 


PÅ ie: POSITION 5,8:? #6; “INITIALIZING 
n: POSITION 3,18 

118 ? HG:"takes ZZ seconds":60518 4888 
:POKE 559,9:6054B 5089 

198 REM 

199 REM 4 STARTING POSITIONS 3X 

288 GOSUB 2888:TOPL-C4: YLZTOPLXC8: XL-C 
8:5121-14:605H8 328 

218 RP$I(Ci)-" ":RP$(98)-" ";RPSCC2)-RP 
5:YR-16:XR-33:5IZR-CB8:G605IB 318: YR-88: 
G05UB 318:POKE 712,66 

228 TOUPR-18:TO0PC-18:5IZR-C8:5IZC-CB:FR 
K-96: LBEB-C@: AREACC2: DIR-ZRT: NZCB8: 0SET- 
58: BQSET-C6: ROSET-74 : NOGET- 82 

218 CKFLG-CB:FRKCS-FRKLS:BODYCS-BODYLS 
:RAaCKCS-RACKLS:605HB 388 

238 REM 

233 REM 3996 MAIN LOOP Hee 

Tag STK-STICK CCB} 

382 SOUND C1,C8,C8,CB 

518 OM AREA 60508 488,458,508,528,558, 
558,588 

338 GOTO 388 

198 REM 

293 REM JH AREA Hi - LEFT EDGE MH 
408 IF STKIUP THEN GOSUB 1858 

418 IF (STK-DM) THEN GOSUB 1188 

428 IF S5TK-RT THEN GREA-£2:SOUND C2,58 
,12,18:DIR-RT 

4318 RETURN 

448 REM 

443 REM 3906 AREA H2 LEFT PILE 33 

458 IF DIR-LT THEN GOSUB 1289 

468 IF PIR-RT THEN G05HB 1258 

478 RETURN 

498 REM : 

433 REM JO AREA HI CENTER 196 

588 IF STK-HP THEN GOSHB 1308 

582 IF STK=DM THEN GOSUB 1:58 

504 IF 5TK-LT THEN AREA-C2:DIR-LT 

586 IF STK=RT THEN AREA-CA:DIRSRT 

588 RETURN 

518 REM 

519 REM XXX AREA 84 CENTER NER 


520 
522 
524 
523 
938 
932 
554 
556 
548 
548 
$43 


IF PIR-LT THEN 60516 1488 

IF DIR-RT THEN GOSUB 1458 

RETURN 

REM 388: AREA HS RIGHT CENTER see 
IF 5TK-UP THEN GOSHB 13188 

IF STK-DN THEN 60516 1358 

IF STK-LT THEN AREA-CA4:DIR-LT 

IF STK-RT THEN AREA-C6:DIRSRY 
RETURN 

REM 

REM 2096 AREA HE RIGHT PILE 388: 

IF SIZR-C6 AND CKFLG-C8 THEN GOSUB 
3508 | 
555 IF DIR-LT THEN 60508 1558 

568 IF DIR-RT THEN 60508 1588 

578 RETURN 

538 REM 

599 REM 3886 AREA #7 - RIGHT EDGE Ht 
608 IF STK=UP THEN 60518 1658 

618 IF 3TK-PN THEN GOSUB 1788 

628 IF STK-LT THEN @REA-C6:DIR-LT 

638 RETURN 

398 REM 

893 REM HE MOVE FORKS & WORDS Ht 

980 PMSCFRK*523)-FRKCS:POKE 53258,NXC4 
*üSET 

382 PH$(881J-RACKCS:POKE 53251,XKXC4*RO 
SET:POKE 53249, KNC4+H0SET 

385 A-HUSR(IAADR,N*BOSET, 128, BADR, 35,C7) 
318 IF LDED=CO THEN RETURN 

915 A-HUSRCAADR,X, Y, CADR, SIZCKC7, C72 : RE 
TURN 

918 REM 

319 REM #366 REPLACE LEFT PILE 33XX* 

328 IF SIZL-C@ THEM RETURN 

325 ATHSR(AADR, HL, YL, LPADR, SIZLEC7,C7) 
:RETØRN 

928 REM 

323 REM HEX REPLACE RIGHT PILE NM 

338 IF SIZR-C8 THEN RETURN 

948 A-USR(AADR, KR, YR, RPADR, SIZRXC7,C7) 
RETURN 

998 REM 

999 REM XX LOAD FORK LEFT PILE XKX* 
1888 TEMPS-LPS:IF (CFRK/C8ÁXTOPL*C2) THE 
M RETURN 

1885 IF 517Լ-ԸՑ THEM RETURN 

1818 LDED-C1:CS$ (C8I=LPS: SIZC-FRK/C8-TO 
PL*C2:51IZL-18-FRK/C8: TOPC-TOPL-CÍ 

1828 P-SIZCXC7-C7:C$(P)-B$:IF 5IZL)CƏ 
THEN LPS-TEMPS CCFRK/C8-TOPLYXC7*C1) 
1818 TOPL-FRK/C8:YL-TOPLECSG:POKE 712,7 
8:PITCH-58:G605HB 1888:RETURN 

1848 REM 

1843 REM ւ MOVE UP LEFT SIDE 2»: 


N 60518 1888 


1868 IF (FRK/C8-5IZC)(-C8 THEM RETURN 
1878 Y-TOPCKCO:FOR J-Ci TO 16:Y-Y-Ci:F 
RK-FRK-Ci:G05UB 988:G051B 328:IF FRK)1 
28 THEN 60518 1988 

1088 NEXT J:TOPC-TUPC-C2 

1838 RETURN 

1898 REM 

1899 REM XXX MOVE DOMM LEFT SIDE 339 
1188 SOUND C1,1318,12,C8:IF LDED-CB THE 
N RETURN 

1118 IF (FRK/C8-TOPL) THEN 60508 1158: 
RETURN 

1120 Y=TOPCHCS:FOR 1-61 TO 16:Y-YtCL:F 
RK=FRK+CL:GOSUB 988:G05UB 928:IF FRK)1 
28 THEN GOSUB 1208 

1130 NEKT J: TOPC-TOPC+C2: RETURN 

1148 REM 

1149 REM XX UNLOAD LEFT SIDE 30€ 
1158 IF LbED-CB THEN RETURN 

1168 TEMPS-CSCC8) :IF FRK/CB(18 THEN TE 
MPS (SIZCKXC7-13)-LP$ 

1170 LPS-TEMPS:S5IZL-SIZL*5IZC-C2:TOPL- 
TOPC4Ci:YL-TOPLECB:LDEP-CB:POKE 712,56 
:PITCH-158:605UB8 1888:RETURN 

1198 REM 

1199 REM «Թու MOVE LEFT AREA HZ NNK 
1288 SOUND C2,98,12,C6:IF FRK/C8) TOPL 
AND LDED-Ci THEN DIR-RT:GUSUB 1858:RET 
HPH 

1205 IF FRK)144 THEN DIR-RT:GOSUB 1858 
:RETURN 

1210 IF K-C8 THEN AREA-CL:S0UMD C2,CB, 
C8,C8: RETIRMH 

i228 M=K-Ci:G05UB 9388:IF FRK-144 THEN 
G0SUB 1288 

1238 IF LDED-Ci THEN GOSUB 328 

1248 RETURM 

1248 REM 

1243 REM Յո: MOVE RIGHT AREA H2 EN 
i258 S0UMD C2,98,12,C6:IF K-C7 THEM AR 
EA-CI:S0UND C2,C80,C8,CO:RETURH 

1268 E-HtC1:605UB 298 

1278 IF LPED-Ci THEN GOSUB 228:IF FRK- 
144 THEM 60508 1988 

1288 RETURN 

1238 REM 

1299 REM 33K GO UP CENTER «ո: 

1300 SOUND Ci,128,12,C8:IF (FRK/C8-517 
C)(-C8 AND LDED-CiI THEM RETURN 

1385 IF FRK(-32 THEN RETURN 

1518 FOR J-C1 TO 16:Y-Y-Ci:FRK-FRK-Ci: 
GOSUB 988:NEMT J:TOPC-TOPC-C2:RETHRN 
1348 REM Թու GO DOMN CENTER 3396€ 

1558 SOUND C1,1310,12,C8:IF (FRK-168) T 


1859 SOUND C1,128,12,C8:IF LDED=CO THE HEN RETURN 


8 





1366 FOR J-C1 TO 16:Y-YtCI:FRK-FRKtCi: 
GOSUB 388:NEMT J:TOPC-TOPCtC2:RETURN 
1398 REM 

1399 REM 0 GO LEFT CENTER 388: 

1408 SOUND C2,98,12,C6:IF N=C6 THEN AR 
EA-CI:S0UND C2,C8,CB,CB:RETURH 

1483 IF H-23 THEN BODYCS-BLNKS$:GOSUB 9 
88 

1464 IF 2-21 THEN HOüSET--48 

1405 IF X-17 THEN OSET=58:BOSET-CO:FRK 
CSzFRKLS: RACKCS-RACKLS : ROSET-66 

1406 IF 1-14 THEM ROSET-74 

1407 IF 1-18 THEN BODYCS-BODYLS:MOSET= 


83 
մմ KUERI CSUR 988 ETIN 


1448 REM 

1449 REM 3% GO RIGHT CENTER Բ: 

1458 SOUND C2,98,12,C6:IF 1325 THEN AR 
EA-C5:50HND C2,C8,C8, CO: RETURN 

1455 IF K210 THEN BODYGS-BLAKS:GOSUB 3 
88 

1454 IF 2-11 THEM HOSET--44:ROSET-64 
1455 IF H-15 THEM OSET=-49:BOSET=-6:FRK 
CS-FRKRS : RaCKCS-RACKRS 

1456 IF X-17 THEM ROSET-42 

1457 IF X-28 THEM BODYCS-BODYRS:MOSET- 
26 

i468 N=H+CL:605SUB 900:RETURN 

1498 REM 

1499 REM ու MOVE RIGHT AREA HG EK 
1588 SOUND C2,98,12,C6:IF FRK/C8)TOPR 
AND LDED=C1 THEN DIR-LT:GOSUB 1858:RET 
HRH 

1505 IF FRK)144 THEM DIR-LT:RETURN 
1518 IF 4-55 THEN AREA-C7:50UND C2,C8, 
C8,C8: RETURN 

i528 K-H*Ci:G05UB 988:IF FRK-144 THER 
60518 1288 

1530 IF LDED-CI THEN 60518 938 

1548 RETURN 

1548 REM 

1543 REM HK MOVE LEFT AREA YG EN 
1558 SOUND C2,38,12,C6:IF K(26 THEN AR 
EA-C5:CKFLG-C8:50UND C2,C8,CB8, CO: RETUR 
N 

1566 X-K-C1:G05UB 988:IF FRK-144 THEN 
G05UB 1908 

1578 IF LDED-C1 THEM GOSUB 250 

1588 RETURN 

1599 REM #4 LOAD HORDS RIGHT PILE 33€ 
1688 TEMPS-RPS:IF (FRK/C8(TOPRtC2) THE 
M RETURN 

i685 IF SIZR-C8 THEN RETURN 

1618 LDEP-C1:CS (CB3 -RPS :; SIZC-FRK/C8-TO 
PRtCZ:SIZR-i8-FRK/C8:TOPC-TOPR-CI 

1628 P-5IZCXC7-C7:C5(P)-BS:IF SIZRICO 


THEN RPS-TEHMPS CCFRK/C8-TOPR3XC7*tC1) 
16:8 TOPR-FRK/C8:YR-TOPRXC8;POKE 712,7 
8:PITCH-58:605UB 18988 :RETURM 

1648 REM 

1643 REM XXX MOVE UP RIGHT SIDE X#E 
1658 SOUND C1,128,12,C8: IF LDED-CBO THE 
H GOSUB 1688 

1666 IF (FRK/C8-5IZC) C-C8 THEN RETURN 
1678 Y-TOPCKCB8:FOR J-Ci TO 16:¥-¥-Ci:F 
RK-FRK-Ci:G03UB 9388:60508 938:IF FRIO 1 
28 THEM GOSUB 1288 

1688 NEXT J: TOPC-TOPC-C2 

1638 RETURN 

1696 REM 

(£49 REM «ա NOVE DOWN RIGHT SIDE 27» 
1788 SOUND Ci,i3@,12,C8:IF LBEB-C@ THE 
N RETURN 

1718 IF (FRK/C8=TOPR) THEN Ե0508 1758: 
RETURN 

i728 Y=TOPCNCB:IFOR J-Ci TO LEI 7SYtCi iF 
RK-FRK+C1:G0SUB 388:60508 9390:IF FRK AL 
28 THEN GOSUB 1988 

1738 NEXT J:TOPC-TOPC*CZ : RETURN 

i748 REM 

1749 REM X*X* UNLOAD RIGHT SIDE XXX 
1758 IF LOED-CO THEN RETURN 

i768 TEMPS-CS (C8) : IF FRK/C8<X18 THEN TE 
HPS(SIZCKC7-13)-RP$ 

1778 RPS-TEMPS:3IZR-SIZRt5IZC-C2:TUPR- 
TOPCHCL: YR-TOPRKCS8 : LDED-C8B : POKE 712,56 
*PITCH=150:505UB 1888:RETURMN 

1798 REM 

1799 REM XXX DING OE 

1808 FOR 1-12 TO Ci STEP -Ci SOENG CB, 
PITCH,18,J:NEXT J: SOUND C8,C8,C8, CB: RE 
TURM 

1848 REM 

1843 REM XXX CRASH HE 

1858 FOR J=15 TO Ci STEP -Ci:50UND ԵԼ, 
700,08, J:NEKT J:50lUND £i,€8,C8,C@:RETH 
RN 

1898 REM 

1899 REM ### PRINT THE DOCKS 0 

1988 A-USRIÓADR,C8,145,DADR, 12,C6) AU 
SRCAADR, 34,145, DADR, 12, C6) : RETURN 

1938 REM 

1999 REM «ո SET UP WORDS HHH 

2888 LP5 _ DØ ni PS (98120 u; 
LPS (15) -LP$ : RESTORE 2188:PICK-INTRNDt 
C8)XC932 HCI 

2818 FOR J-Ci TO PICK:READ HTCHS : NEXT 
J:CNT-Ca:FOÜ0R J-C3 TO 87 STEP 14 

2878 LINE-IMT(RND (C832 XC91 4 C1 

2021 IF Զին (Ը03 48.55 THEM LINE-PICK 
2822 RESTORE 2188*10*L INE :K-INT CRND (CG 
)XC5)*C1:FOü0R LCi TO K:READ MDS:NEKT L 
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2024 FOR ü-CX TO J STEP 14:18 HMDS-LPS( 


0,0+C2) THEM 2820 

2826 NEXT 0 

2838 IF LINE-PICK THEM CNT-CNT*CI:IF C 

MT>CI THEN 2026 

2048 IF J=31 AND CNT-C@ THEM 2928 

2842 IF 1-53 AMD CNT-C1 THEN 2020 

2044 IF J-87 AND CNT-C2 THEN 28260 

2060 ԼՔՏ(1, J*C2) -HDS : NEXT J 

2878 7 CHR$(125):PÜKE 656,C@:POKE 657, 

22:7 "get Z .";MICH$;" words":POKE 553 

,92 

2838 

2188 

2118 

2128 

2158 

2148 

2158 

2160 

2178 

2188 

2198 

2938 

2339 REM ու: INITIALIZE X** 

3888 C8-8:Ci-1:C2-2:C3-3:04-4:C5-5:C6- 

6:C7-7:C8-8:C3-9 

3618 DIM LP5(98),0P5(98),C$ (112) , TEMPS 

(3821,45 (07) , BS (07) , FS CCD 

X028 LPADR-ADR(ULPS) :RPADR=ADRIRPS) : CAD 

R=ADR (CS) : TADR=ADR (TEMPS) : FADR=ADR (FS) 

ES cio nig$(112)z"u u;C$0(212CS:BS=CS 

1818 UP-14:DH-13:LT-11:RT-C7 

3058 GRAPHICS C8:POKE 553,C8:PM-PEEK (1 

86) -40:POKE 54279, PM:POKE 53258,C1:P0K 

E 706,166:POKE 51277,C3 

1868 UUTP-PEEK(CII4)tPEEK (1353256 : STAR 

P=ADREPMSI : OF FS=PMEZ5641024-STARP : HI-I 

NT COFFS/256) :LO-OF FS-HI#Z56 

1878 POKE UUTPtC2,LO:POKE UUTPECZ,HI:P 

OKE VUTP+CS,CA:POKE UUTPtCG,CB:POKE UU 

TP+C7,C4 

3875 PMS (CL) =CHRS (C03 : PMS (18242 -CHRS CC 

8) : PMS (C2) -PMS 

3888 DIM FRKLS (28) , FRKRS (283 , FRECS (28) 

FOR J-CZ TO 16:FRKLS CJ) ZCHRS (C1) :FRKR 

SCJ)-CHRS (1282 :WEXT J 

5098 FOR 1-17 TO 19: FRKLSCJ3=CHRS (255) 

:FRKRS (11 -CHRS C255) :MEKT J: FRKLS (283-0 

HRS CCB) :FRKRS (28) ZCHR$ (C8) 

3108 POXE 718,32:POKE 623,C1:0IM MTCHS 

(021,805 CC32 

3118 DIM BODYLSCT5) , BLNKS (35) :BODYLS=" 
| Hh! Bod ար SW C 

3120 DIM BODYRS (35) , BOHYCS C35) :BÜDYRS- 

" | LE րտ աա OG: 


RETURN 

DATA AN, ED, AT, OT, UN, AD, AG, ID, AP 
DATA CAN, PAN, RAM, FAN, MAN 
DATA BED, FED, LED, RED, HED 
DATA BAT, CAT, SAT, FAT, RAT 
BATA HOT, POT, NOT, LOT, ROT 
DATA BUM, GUN, FUN, RUM, SUK 
DATA MAD, SAD, LAD, BAD, HAD 
BATA BAG, SAG, FAG, RAG, NAG 
DATA BID, LID, HID, DID, RIS 
BATA CAP, LAP, SAP, NAP, ZAP 
REM 


OCRERS FORKLIFT 


BAGR=ABR (BODYCS)J 
5158 BLNKS(CI)-" “SBLNKSCISI=" ":BLNKS 
(C2)-BLNKS:FOR 1-54 TO 194: PMS (J, J3=CH 
R$(255) :MEXT J 
3148 POKE (7841,42;:POKE 537248,11Ø:POKE 
91256,C1 
5158 DIM RACKL$(168),RACKRS (168) ,RACKC 
$ (168) :RACKLS (C1) CHRÈ (192) : RACKL S (C22 
-CHR$(C54):RACKLS (158) -" " 
3168 RACKLS (C3) <RACKLS: RACKRS (C1) ZCHRS 
COX) : RACKRS CC2) ՀՇԱՔՏ CC2) : RAaCKRS (158) =" 
": RACKRS CI) =RACKRS 
3178 RESTORE 3188;FüR 1-158 TO 16@:REA 
D A:RACKLS CJ, J2 ZCHRS CAT : NEXT. J 
3172 RESTORE 3182:FOR J-i58 TO 168:REA 
b AIRACKRSCJ, JI-CHRS CA) NEXT J 
3188 DATA 8,28,62,54,99,99,99,54,62,28 
3 
3182 BATA 16,56,124,188,128,138,128,18 
8,124,56,16 
3190 POKE 707,04 
i288 RESTORE 3218:FO0R J-444 TO 458:REÀ 
P AIPHSCJ, JI=CHRS CA) : WENT. JiPOKE 785,C 
å 
3219 DATA 8,28,62,62,62,28,8 
3220 DIM DOCKS (12) :DOCKS= "ML || ||| 
"IDpAPR-ADR(DOCKS):G05UB 1980 
i218 A-PEEK(CS68)*256XPEEK (561) 
i248 IF PEEK (Ո) 4266 THEN A-AtC1:G0TO 3 
248 
2258 POKE 6,78:POKE A+C3,CO:POKE ԲՀԸ4, 
Cb:POKE A+C5,C6 
$300 RETURN 
1498 REM 
3439 REM MN CHECK FOR DONE 20% 
i588 CNT-CB:;CKFLG-CI:PITCH-48 
3518 IF RP$(tC4,CS)-MTCHS$ AND RP$(IB,19 
)-HTCHS AMD RPSCIZ,S3)-MTCHS THEN 3558 
3528 RETURN 
i558 FOR K-C8 TO C3:POKE 656,C8:POKE 6 
97,22:? " great job!!! —";PITCH-188 
-CSXK:605UB 1888 
3568 POKE 656,CØ:POKE 657,22;? " 

" FOR L-C8 TO 18:NEXT L:WE 
AT K 
1588 POKE 559,C0:BODYCS-BLAKS:A-USR (AA 
PR, K+BOSET, 1720, BADR, 35,073: PMS (FRK 4523 
, FRK +542) ԲԻՏ (FRK +44T, FRK 4562) 
i538 POP :GOTO 288 
1298 REM 
2999 REM HHH GR. 8 ROUTINE sek 
4888 DIM à$(257):RESTORE 4818:FO0R 7-1 
Tü 257:READ AIASCJ, J3 -CHRS CA) NEXT 1:48 
APR=AGR (AS) : RETURN 
4818 DATA 215,184,184,104,1:1,2803,104, 
184,1121,284,169,8,133,285,6,284, 38,285 


BI 


,6,204,38,205,6,284, 38 

4828 DATA 285,165,284,24,181,88,11:,28 
5,165,205,181,89,111,287,6,284,38,285, 
6,284,38,2805,165,284,24 

4838 DATA 181,285,131,285,165,205,181, 
287,133,287,165,286,24,181,282,131,286 
;141,135,5,165,287,185,8,111 

4848 DATA 707,141,134,6,104,133,217,18 
4,133,212,184,184,141,122,6,286,123,6, 
184,184,141,1311,6 

4858 DATA 169,0,141,137,6,141,138,6,16 
9,8,141,128,6,172,138,6,177,212,16,5,2 
86,128,6,41,127,281,32 

4868 DATA 176,5,24,105,64,16,7,281,96, 
176,5,56,231,32,133,204,169,08,133,285, 
111,288,6,284,38 

4878 PATA 285,6,204,318,285,6,284,38,28 
5,165,205,24.109,244,2,133,205,164, 288 
,177,284,77,128,6,172 


40875 DATA 152,6,145, 206 


4888 DATA 230,288,165,288,281,8,248,15 
,165,280,24,185,48,131,286,144,227,230 
,287,288,223 

4838 DATA 144,168,238,132,0,218,1:8,6, 
206,129,6,48,47,173,137,6,285,131,6,28 
$,22,169,0,141,132,6,24,173,133,6 

4188 DATA 185,04,141,133,6,173,134,6,1 
85,1,141,134,6,171,131,6,133,286,173,1 
314,6,133,287,24,144,288,326 


OGKERS 


BLIOGRAPHY 


PERIODICAL BIBLIOGRAPHY 

MICROS ANO THE DISABLED A.N.A.L.O.G #18,April 

'84, "Communication for the Handicapped' by Michael Long 
(p15) An Atari scanning program using å pressure 
activated 'Puff and Sip' switch. BYTE The Sept. '82 
issue of Byte was devoted to computers and the disabled. 
Among the articles were: 'Computers Can Play a Dual Role 
for Disabled Individuals’ by Gregg Vanderheiden (p136) A 
summary of ways computers can be used by the disabled, 
pointing out that they should not only be thought of as 
providing special functions, but should give disabled 
individuals access to standard software. 'A Neu Horizon 
for Nonvocal Communication Devices' by Patrick Demasco & 
Ricard Foulds (p155) Describes using a Panasonic 
portable computer with Votrax Type-'N-Talk as a scanning 
communicator. Also describes using a digitizing tablet 
to select letter clusters to create messages. 'Minspeak' 
by Bruce Baker (p186) A system is outlined where a large 
number of complete sentences can be choosen for 
reproduction using a very small number of physical 
responses (keystroke on a specially designed keyboard). 
‘FDA Regulation of computerized Medical Devices! by 
Jorgens, Bruch & Huston (p204) What designers of 
medically related hardware and software should know. 
"Talking Terminals! by David Stoffel (p218) Terminals 
are available which speak what is sent to them, (for 
about $5000). This article describes three of these. 
'Braille Writing in Pascal by Alfred Fant Jr. (p250) 
Using a latex cushion of the platten, a regular printer 
can be used to print Braille. 'Adaptive-Firmware Card 
for the Apple II' by Paul Schwejda å Gregg Vanderheiden 
(p276) A hardware solution that allows disabled 
individuals to run standard, unmodified software.'LOGO: 
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An Approach to Educating Disbled Children’ by Weir, 
Russel & Valente (p342) Creating action-oriented 
learning environments and putting pupils in charge of 
their own learning. ‘Review of The Cognivox V10-1003' by 
Dr. William Murray (p231) A voice recognition unit for 
the Apple II can be trained to recognize a set of up to 
32 words or short phrases (cost-$295). 'The Abilityphone 
(review)' by William Rush (p240) A security device for 
the disabled can provide emergency dialing, monitoring 
and repeated dialing of a phone number. 'Build the 
Microvox Text-To-Speech Synthesizer! by Steve Ciarcia 
Contains its oun microprocessor and text to speech 
algorithm to change RS232 supplied text directly into 
speech (part II in Oct. '82 issue). BYTE Nov. '83 'Build 
The H-Com Handicapped Communicator’ by Steve Ciarcia 
(p36) Describes construction of a scanner based on a 
Intel 8748 single chip microcomputer. COMPUTE! A series 
'micros With The Handicapped’ by Marshall Curtis and 
Susan Semancik featured articles on creating an 
electronics communication board in Basic. Among the 
topics discussed were: April '82 (p98) Outline of series 
covering 5 fundamental arsas June '82 (pS4) 
consideration in setting up the menu,Oct. '82 (p124) a 
digression- The game "MasterMind' with single button 
input Jan. '83 (p124) entry of data into menu Apr. '83 
(p135) saving menus on disk or tape and inputing 
directly to the screen June '83 (p164) making selections 
from menus Nov. '83 (p233) a complete program for the 
VIC20 with BK COMPUTE! Feb. '84 'Special Education 
Applications' by Semancik & Benvenuti An Atari counting 
program with joytick input for special education 
students. COMPUTE Sept. '84 'Aids for The Blind' (p122) 
by Glenn Kleiman A review of ways computars can help 
people who have impaired vision or are blind (include 
technological aids reference). CREATIVE COMPUTING Mar. 
'82 'Interactive Programming! (p146) Hardware and 
software techniques for the physically limited. CREATIVE 
COMPUTING Aug. '83 'Handicapped and Working’ by Kirby 
Morgan (p142) First hand account of how computers can 
help the handicapped to work at home. CREATIVE COMPUTING 
Oct. '83 'Communicating in Code! by Wolfger Schneider 
(p222) A Morse code generating switch acts as a keyboard 
replacement. CREATIVE COMPUTING The 'Computing For the 
Handicapped’ column has been taken over by Shel Talmy 
and includes the folloving installments: Dec. '83 (p332) 
Describes the Osborne 1 base AVOS system Feb. '84 (p222) 
Describes the VIM Voice Input Module Sept. '84 Various 
hardware and software aids including VOCA, 
S.A.M.,KolaPad and a voice based recipe file program. 
IEEE MICRO June '83 Բո Integrated Workstation for the 
Visually Handicapped' by Grossner, Radhakrishnan & 
Pospiech (p8) CP/M based system with Intex 'Talker' and 
homemade Braille 'display' unit. IEEE MICRO June '83 
'Applying Anticipatory Text Selection in a Uriting Aid 
for People with Severe Motor Impairment' by Hekathorne & 
Childress (p17) A text processor uith scanning input 
tries to speed up the selection process by anticipating 
what is coming up from what was last entered. IEEE MICRO 
Aug. '83 'The Mod Keyboard' by Nelson, Korba, Park & 
Crabtree (p?) Uses a VIC20 with ROM and battery backed 
RAM as a keyboard replacement for another computer. IEEE 
MICRO Aug. '83 'A Microcomputer-based Laboratory Aid for 
Visually Impaired Students' by Lunney et. al. (p19) CP/M 
based system for data acquisition and analysis has voice 
output. 
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REM Memory/Disk file disassembler 

REM 

REM By Greg Menke 

REM 

REM 9/3/84 U2.8 

REM 

REM 

REM 

REM HEX and DECimal conversion 

REM routines by 5hane Rolin. 

REH 

REM See the October 1385 ACE. 

REM 

REH 

68 GRAPHICS 8:5ETCOLOR 2,8,8 

78 DIM 4$(1820),0UT$ (283, I2 (20) , INS (28 

J ,HEXS (43,H$ (23) , HNEMS (42, KS (11 , 002 (28 
),T$(28),ADDR5 C18) 

71 SIZE-FRE(CG)-1024:DIM BUFFS (SIZE) 

72 BUFFSCI)-"9":BUFFSCSIZEJ-" 9" : BUFFS( 

2)-BUFF$ 

75 H5="0123456789ABCDEF" 

88 4$(1)-"9":0$(1828) -" 9 AS (C2) 2A$ 

85 POKE 752,1:7 "RInitializing ... " 
38 READ A,TS$:IF Ad-i THEN AS(AW4-I, ANE 
J-TS$:POSITION 19,8:7 1541,33::6010 38 
95 POKE 752,8 

180 ? "KDiSassemble from isk or Gemor 
g TS 

182 CLOSE HI:O0PEM HI,4,0,"K": GET 85,8: 
? CHRSCA) :CLOSE WI: IS-CHRS CA} 

185 IF I$ "D" THEN 128 

187 ? "R":CLOSE Bi: OPEN 11,6,0,"D; X, X" 
: TRAP. 115 

118 INPUT 81:15:2 TS,:INPUT 84:15:72 TS 
:60T0 118 

115 ? :7? :? INTQ(SIZE/125);" free secto 
rs of file space." 

118 CLOSE 11:7 :? "Enter f 
ilename,":? : INPUT INS:IF INS="" THEN 
188 

128 ? "KADisassemble to Ekreen, Disk fi 
le, or [inter ?''; 

125 CLOSE HI:0PEN HI,4,0,"K'":GET 85,8: 
? CHRSCA) [CLOSE Hz: TS$-CHRS CA) 

138 IF T$-"S" OR T$-CHR$(155) THEN OUT 
$-"p." 

148 IF TS="P" THEN QUTS="P:" 

158 IF T$-"D" THEM ? "KEnter filename 
"; INPUT OUTS:IF OUTS="" THEN 128 

168 REM 

165 REM 

170 REM 

188 IF I$-"D" THEN 190 

182 ? "KEnter start address in HÆ) or 
[Jdg.":? :INPUT 15:18 TS" THEN 128 


Pala 


183 IF T$(1,1)-"$" THEN HEXS=TS(Z,LENC 515 IF X5)"6" 


153):605Ս8 4888:5TART-NUM:GOTO 186 

185 518Ք1-ՍՈԼ 015) 

186 NP-65515:G0T0 388 

187 REM 

188 REM 

189 REM 

138 OPEN f1,4,0,1N5 

280 GET HiI,X:GET HI,Y:GET HI A:GET Hi, 

B:START-AtBX256 

218 GET HLA:IGET HL,B:ND-4+84256 

228 IF 4-255 AND Y-255 THEN 268 

238 ? :7 12 INS$;" is [DE a binary load 
filetin;2 :? :? "Press BIEN; CLOSE 

i 

248 IF PEEK(53279) O 6 THEM 248 

258 GOTO 188 

268 ? "S'":H-INT(CADR(BIUFFS3/2563 :L-ADREC 

BUFF$)-(256XHJ : IOCB-834* 1X16:POKE IOCB 
,7^:POKE IOCBt2,L:POKE IOCB+X,H 

261 POKE I0CBt6,255:POKE I0CB+7,255 

265 fA-USRCADRC'hhhaLUET2,1*16) : CLOSE H 

i 

285 REH 

284 REM 

298 REM 

i88 OPEN 32,8,80,00T5:5ETCOLOR 2,8,8:L0 

0P-488:LO0C-START 

518 CONUERT-3888:QFF-1 

515 ? "ԱՐԲ 
:POKE 764,255 

328 REM 

338 REM 

488 IF I$-"D'" THEM A=ASC(BUFFS(OFF, OFF 

33:0FF-üFF*1:G0TO 428 

418 a-PEEK {LOC} 

428 ADD-i:MNEM-A:NUM-LOC:GOSUB CONVERT 

:AbO-8 

425 IF PEEK(764)(255 THEM GOSUB 788 

430 ADDRS="5": ADORS (7) CHERS : ADORS CLENC 

ADDRSI+LN=" " 

448 IF A-8 THEN FL-i:HNEMS-"UBRK'":GOTO 

688 

458 FL=0:MNEMS=AS (MNE 4-3, HNEME4) 

468 KS=MNEMS (4,4) : MMEMS (43-10 

478 IF X$-"i" THEM OPS="A":6010 688 

488 IF K$-"2" THEN GOSUB 1888:0P$-'HN$" 

: OPS CX) -HEXS 

498 IF KS="3" THEM GOSUB 1888:0P$2-"$': 

OPS (2) -HEX$ 

588 IF X$-"4" OR K$-"S5" THEN GOSUB 188 

8:0p$-"$":0P5(21-HEX5 :GOSUB 10104 C18XX 

արաց 

518 IF N$("6" OR KS)"8" THEM 528 

514 GOSUB 1908:0P5$="5":0PS(4,5)=HENS:G 

0508 1888:0P$(2,3)-HEX$ 
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THEN GOSUB 18164 (10%X5-" 
8'Դ 

528 IF KS="9" 
525 IF KS="4" THEN GOSUB 1588 

Sie IF HS<"B" OR KS)"D" THEN 548 

533 GOSUB 1888:0P$-"($":0P$ (I, 4)-HEX5: 
IF X$-"B" THEN GOSUB 1810 

535 OPSCLENCOPS) 413-"3":IF M$-"C" THEM 
G0SUB 1878 

548 IF M$-"9" THEN OPS="-S":MUM-MMEM:G 

05UB CONVERT : OPS CLEN COPS) +1) CHEKS : OPS ¢ 
LEN COPS) 41) -"-'" : HNEHS-722" 

531 REM 

532 REM 

593 REM 

688 7 H2;ADDRS;MNEMS::IF FL-@ THEN 7 # 
2;" ":0p$; 

618 7 HZ:LOC-LOC+1 

628 IF LOC}ND THEN ? :? "lend reached 
28:7 22 "Disting from ";START;" to "չհ 
pU.U":? : CLOSE HZ:CLOSE HL: END 

638 GOTO LOOP 

788 ? :? :2 "HET = Abort.":7 PIGG 
= Continue.":? "WERT Է End.":? :? 
718 POKE 764,255:18 PEEK(532721-6 THEN 
CLOSE H2:CLOSE H1:POP :60TO 188 

728 IF PEEK(53279)-5 THEN RETURN 

756 IF PEEK(531272) O 3 THEN 718 

748 POP :CLOSE H2:CLOSE H1:? :END 

1888 LOC-LOC*1 

1882 IF LOC)MD THEN ? :? "GijEnd reache 
d.":2 :? "Listing from ";START;" to "; 
կը:",":2 CLOSE H2:CLOSE @i: END 

i885 NUM-PEEK(LOCI:IF IS-"D'" THEN NHK 

ASC (BUFFS OFF, OFFI): OFFIOFF+L 

1887 GOSUB CONVERT:A-MUM:RETURN 

1810 OPSILENCTOPSJ+LIT", K" : RETURN 

i828 OPSCLENCOPS2* 1)" , Y" RETURN 

1588 GOSUB 1888:N-À 

1518 IF 4127 THEM A-LOC-(755-N) 

i528 IF 41128 THEM A-LOC+H+1 

1538 NUM-A:GOSUB CONVERT 

1548 üp$-"S":Q0P$ (22 HEKS RETURN 

1999 REM 

2888 DATA 185,ADC2,181,08D03,117,6DC4,1 

83,5DC6,125,4DC7,121,6008,97,0D08,115:, 
ADCC, 41L, AND2, 37, ANDI, 57, AND4 

2818 DATA 45,AND6,61,AND7,57,ANDB, 33,4 

MDB, 49 ,ANDC ,18,45L1,6,45L3,27,45L4,14, 

ASLE, I8,45L7 

2828 DATA 144,BCCA,1760,BC54,240, BEDA, I 
6,BIT3,44,81T6,48,BMITA, 288, BEA, 16, BPL 

A, 8B, BUCA, 112, BUSA 

78308 DATA 24,CLC9,216,CLD9,88,CL I9, 194 
,CLU9,281,CHP2,197, CHP 3,213, CHP4,285,C 

WP6,221,CHP7,217,CHPGO, 191,CHPB 


THEN üP$-'"" 


BUB NIE Շար 


2040 DATA 709,CMPC,224,CPX2,228,CPX3,2 

36, CPHG,192,CPY2,196,CPYZ, 284, CPY6, 198 

,DECS,214,DEC4, 205,DEC6,222,bEC7 

2858 DATA 282,DEK9,116,DEY9,71,E0R2,693 

,EORT, 85, E0R4, 77, E0R6, 93,E0R7,89,E0R8, 

65, EORB, 81, EORC 

2868 DATA 730,IMC3,246,INC4,238,INC6,2 

54,INC7,232,INX9,288, INY9, 76, JMP6, 188, 

JMPD, 32, JSRE 

2070 DATA 169,LDA2,165,LDA3, 181,LDA4,1 

73, LBA6,189,LDA7,185,LDA8,161,LDAB, 177 

,LBAC, 162,LDK2,166,LDXZ 

2088 DATA 182,LDH5,174,L DH6,19280,LDE8,1 

68,LDY2,164,LDY3, 188,LDY4, 172, LDY6, 188 

,Լ047,74,Լ581 

2098 DATA 78,Լ5Ք3,86,Լ584,78,Լ5Ք6,34,Լ 

5R7,234,N0P9,9,0RA2,5,0RA3,21,0RA4, 13, 

ORAG,29,0RA7,25, ORAB, 1, ORAB 

2188 DATA 17,0RAC,72,PHA9,8,PHP3,104,P 

LA9,49,PLP9,42,ROL1,38,ROLI,54,ROL4, 46 

,R0L6,52,R0L7 

2118 DATA 186,R0R1,182,RO0R3,118,R0R4,1 

18, ROR6, 126, ROR7, 64, RTI9,96,RTS9,2331,5 

BC2,2293,5BC1 

2128 DATA 245,5BC4,237,5BC6, 253, 5BC7,2 

49,5BC8,225,5BCB, 241, SBCC, 56, 5EC9, 248, 

5ED9,120,5E13 

2138 DATA 133,5TA3,149,5TA4,141,5TA6, i 

57,51A7,153,5TA8,129,5TAB, 145, 5TAC, 134 
51135, 158,515, 142, 5THE 

2148 DATA 132,5T73,148,5TY4,140,5TY6,1 
78, TAK, 168, TAY9, 186, T5K9, 138, TKAJ, 154 
;TX59,1457, 1483, -1, NULL 

3888 REM CONVERT DEC TO HEK 

3828 MUSE CAR ("հիե ժա թ), Meni? 
ԽՈՓՈԼԹՈՈՓՈՒՒԹԱՒՑՑՈԼՒԻԻԸ: eid: 8 |; / 62/17» 
") , NUM) 

3830 FOR G-283 TO 286:HEN$ (G-282) -CHR$ 
(PEEK(G)) t NENT G:IF HEKSCL,2)="00" AND 
ADDO THEM HEXS=HEKS (3,4) 

3040 RETURN 

4888 REM CONVERT HEX TO DEC 

4818 A=B:FOR 1-1 TO LENCHEXS):IF (HEKS 
(I,I)("à" OR HEKSCI,I))"F") AND (HEKS 

I,I)("8" OR HEXSLI,I))"9") THEN 4-1 
4011 MENT I:IF ñ THEN NUM=8:? "TILLIT 

DETETZIUHSUHEEEDELCOEUDEENT: : RE TURN 
4828 AD=ADRCHEKS) : L-LEN CHEKS) 

4818 NIMSUSR CADR ("hh [rh in h D E RE Մ: 

881Hes ing) 64/2: Da AA 

RET: a UHONP 28"3,46,Լ) 

4048 RETURN 


BADR=ADR (BODYCS) 

3130 BLNKS(CI)-" ":BLMKSC35)-" ":BLNKS 
(C2)-BLNKS:FOÜR J-34 TO 194:PM$ CJ, J) -CH 

R$(255) :NEXT J 

3140 POKE (7841,42:PÜ0KE 53248,118:POKE 
53256,C3 

3159 DIM RACKLS (1681, RACKRS (168) , RACKC 
$ (158) :RACKLS CCL) <CHRS (192) : RACKLS (C2) 
=CHRS (64) :RACKLS (150)=" " 

3168 RACKLS (CZ) =RACKLS : RACKRS (C1) =CHRS 
(CX) :RACKRS (C2) -CHRS (C2) : RACKRS (158) =" 
": RACKRS (C3) -RACKRS 

3178 RESTORE 3188:F0R J-158 TO 160:REA 

D A:RACKLSTJ, JI=CHRS CA) :MEKT J 

3172 RESTORE 3182:FOR J-158 TO 160:REA 
b AIRACKRSCJ, JI=CHRS CA) : NEXT. J 

1188 DATA 8,28,62,54,99,99,99,54,62,28 
,8 

3182 DATA 16,56,124,188,198,198,198,18 
8,124,56,16 

3198 POKE 787,C4 

1288 RESTORE 3218:FO0R J-444 TO 450:REA 

D A:PH$ CJ, J) CHRS CAT : EXT. J:POKE 785,C 
4 

1218 DATA 8,28,62,52,62,28,8 

3228 DIM DOCKSCI2) :DOCKS- DEERENIIL | | ||| 
"iDADR-ADR(CDOCKS) :GOSUB 1900 

1238 A-PEEK(568)4256XPFEK (561) 

3240 IF PEEK(A) O 66 THEN A-A+Ci:G0T0 3 
248 

3258 POKE 4,78:POKE A*CI,C6:POKE AtC4, 
C6:POKE A+CS,C6 

7300 RETURN 

5438 REM 

3499 REM 9 CHECK FOR DONE 33 

31588 CNT-CO:CKFLG-Ci:PITCH-48 

3518 IF RPS(C4,CS)-MTCHS AND RP$(18,19 


 )-HMTCHS$ AND RP$(I2,I3)-MTCHS THEN 3556 


1528 RETURN 
3558 FOR K-C8 TO C9:POKF 655,CB8:POKE 6 
97,22:? " great job!!! "iPITCH-188 
-CSXK:605H8 1888 
3560 POKE 656,C8:POKE 657,22:? " 

"FOR L-C8 TO 18:NEHT LNE 
KT K 
3588 POKE 559,C8:BO0DYCS-BLNK$ : A-LSR (AA 
OR, X+BOSET, 120, BADR, 35,C72 :PMS CFRK4521 
; FRK 4542) PHS (FRK +447, FRK+562) 
5538 POP :GOTO 288 
3998 REM 
3999 REM HHH GR. 8 ROUTINE HE% 
4888 DIM A$(257) :RESTORE 4010:FOR 7-1 
TO 257:READ A:AGCJ, J) -CHRS CAS WERT J:ñ 
ADR=ADR (AS) : RETURN 
4818 DATA 216,184,184,104,133,2831,184, 
184,133,204,169,8,133,285,6,204, 38,285 


12 


,9,284,18,285,6,284,38 

4828 DATA 285,165,284,24,181,88,131,28 
6,165,285,181,82,133,287,6,284,38,285, 
6,284,38,285,165,284,24 

48:8 DATA 181,206,153,206,165,285,181, 
287,133,287,165,286,24,181,282,131,2886 
2141,133,6,165,287,105,6,133 

4848 DATA 207,141,134,6,104,133,213,18 
4,135,212,104,184,141,129,6,206,129,6, 
1984,1094,141,131,6 

4858 DATA 169,8,141,132,6,141,138,6,16 
23,8,141,128,6,172,118,6,177,212,16,5,2 
86,128,6,41,127,281,32 

4868 DATA 176,5,24,185,64,16,7,201,96, 
176,3,56,231,32,131,284,1692,60,113,285, 
113,288,6,284,38 

4878 DATA 285,6,284,38,285,6,2804, 38,28 
5,165,285,24,189,244,2,131,285,164,288 
,177,284,77,128,6,172 

4075 DATA 1:2,6,145,286 

4888 DATA 238,288,165,288,281,8,248,15 
,165,286,24,105,48,155,206, 144,227,239 
287,208,224 

4838 DATA 144,168,238,132,6,238,138,6, 
286,129,6,48,45,175,132,6,265,151,6,28 
8,22,163,8,141,132,6,24,173,135,6 

4188 DATA 105,64,141,137,6,173,134,6,1 
05,1,141, 134,6,173,153,6,133,206,175,1 
34,6,133,287,24,144, 200,96 
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STRINGER 


String Entry Program 

Recently, numerous articles have appeared in ANTIC which contain 
string declaration statements consisting of numerous control 
characters. The advantage of direct string declarations is they use 
less memory than comparable READ/DATA statements. In addition, 
the amount of time required for program initialization is significantly 
reduced. 

There is a major drawback to direct string declaration statements 
— they require much more effort by the person who keys in the pro- 
gram! It is hard to read the program, interpret the control characters 
shown, and type in the combination of keystrokes to get the correct 
characters on the screen. l 

This is why I wrote STRINGER. The program should simplify the en- 
try of unusual strings. The program uses Player/Missile graphics for a 
cursor which moves over the entire ATASCII character set on the 
screen. The cursor is joystick controlled, and a press of the fire button 
places the selected character in a string declaration statement at the 
top of the screen. Characters may be entered directly from the 
keyboard. [DELETE] can be used to delete characters from the string 
declaration statement. 


KEYING IN THE PROGRAM 

The STRINGER program in Listing one is entirely self contained. It 
can be keyed in and RUN immediately if you desire to do so. Disk 
drive owners should note the routine in lines 5-10. This routine eases 
the task of entering the programs while avoiding ‘Atari lock-up’. By 
typing G.5 in direct mode, the program will delete the backup file, 
rename the current version of the program to the backup file, and 
SAVE the new version to disk for you. This is an efficient way to recy- 
cle file names on the disk. It avoids guesswork as to what file name 
was used to save the last version of the program. 

Listing two contains two subroutines which can be used to speed 
up the initialization of the STRINGER program. The program in Listing 
two is optional, and it does not have to be entered to use the STR- 
INGER program. Listing three contains the Assembly Language 
source code for the machine language routine used in the STRINGER 
program. The source code is shown for those of you who are in- 
terested. It does not have to be keyed in to use the STRINGER pro- 
gram. 


PROGRAM USAGE 

After the title screen comes up, the program initializes for a few 
seconds. Press [START] when prompted to do so. The program will 
ask you to enter the line number, the name of the string variable, and 
the starting index in the string. 

The main part of the program executes next. First, the program 
places the character set at the bottom of the screen. Next, the string 
statement is placed at the top of the screen. Then, you can move a 
cursor across the screen via the joystick. When the cursor is position- 
ed over the desired character, a press of the fire button will place the 
character in the string statement at the top of the screen. You may 
enter characters directly from the keyboard instead of using the 
joystick. If you incorrectly enter a character into the string statement, 
press [DELETE] to delete the character. 

After you finish creating the string statement, press [START]. After 
verifying you are ready to save the string statement, the program will 
place a line of BASIC code on the screen, and the cursor will be plac- 
ed on that line. Simply press [RETURN] to LIST the string to disk or 
cassette. If you have another string statement to create, you can press 
[RETURN] to RUN the program again. 


INITIALIZATION SPEED-UP 

When RUN, the program takes a few seconds to read the 89 data 
items and place them in the MEMS string. It is possible to avoid this 
delay using the subroutines in Listing two. These lines of BASIC 
should be keyed in and LISTed so they can be ENTERed into the STR- 
INGER program. 

Be sure the STRINGER program has been SAVEd, and it is 
operating correctly. Press [SYSTEM RESET] to re-enable the BREAK 
key. Run the program, and when prompted to press [START], press 
[BREAK] instead. Next, type in "GO TO 6000” in direct mode, and 
press [RETURN]. 

The subroutine at line 6000 will create the string declaration state- 
ment for MEM$, and place it into the body of the program. In addition, 
a few other lines of the program will be changed. The subroutine at 
line 6100 will print the correct LIST/INEW/ENTER/SAVE lines on the 
screen for you. By simply pressing [RETURN] several times, you can 
create a new version of STRINGER containing a string declaration 
statement. The program will be shorter than the original, and it will in- 
itialize in only a second! 


MACHINE LANGUAGE ROUTINE 

The MEM$ string contains a dual purpose machine language 
routine. The Assembly Language source code for this routine is 
shown in Listing three. There are two calling sequences from BASIC. 
When called via: 

A = USR(ADR(MEM$),0,ADDRESS,NUMBER) 
the routine will fill memory starting at ADDRESS with zeroes for the 
specified NUMBER of bytes. This is used at line 3075 to clear the 
memory used for the P/M graphics. 

The alternate calling sequence is: 

A = USR(ADR(MEMS$) SOURCE, DEST,NUMBER) 

The routine will copy the specified NUMBER of bytes starting at the 
SOURCE address in memory to the DEST address in memory. This 
routine is used to copy 800 bytes of screen memory in lines 510 and 
4255. It is also used to move ten bytes of pP/M data (stored in CUR- 
SOR$) at lines 590 and 4165. (WARNING: this routine is not ‘smart’ 
enough to handle cases where overlapping area of memory are 
copied!) 

Another use for this routine is to copy the entire character set from 
ROM to RAM. If you had defined the variable CHSET as the location in 
memory for the character set, the statement 

A = USR(ADR(MEM$),57344,CHSET, 1024) 
would be at least 15 seconds faster than using a FOR/NEXT loop to do 
the same thing! 


TECHNICAL NOTES 

Lines 3080-3125 set up two arrays of directional values for joystick 
movement. Instead of reading the joystick and testing various values 
to determine the direction, one line can do it: 

ST = STICK(X):X = XDIR(ST):Y = YDIR(ST). 
This handy trick first appeared in the M.A.C.E. Journal in a doodling 
program in 1982. 

Lines 655 and 660 contain a routine to check whether 
[CAPS/LOWER] or [Atari Logo] has been pressed. This is necessary 
because, without these two lines, input from the keyboard does not 
work well. The reason is the GET statement at line 665 does not 
recognize these two special keys as “real” characters from the 
keyboard. The program simply stops looping when either of these 
keys are pressed, since the GET function is waiting for another 
keypress. Now you may press either of these keys, and the program 
does not get confused. Credit for the hint regarding the special 
memory locations used in lines 655 and 660 goes to Russ Hickman 
from Birmingham, Alabama. Thanks, Russ! 

Lines 4145 to 4155 and 510 eliminated a problem involving the 
screen editor. When a character is placed in the rightmost column of 
the screen, the screen editor will sometimes scroll the lines below 
that point. After this happened a few times, part of the character set 
could be lost off the bottom of the screen! 

The solution is to save the entire screen beyond the first four lines, 
which is where the string declaration statement is placed. The screen 
is saved at lines 4145-4155. If the screen does scroll, it is detected at 
line 510, and the USR call restores the screen quickly. The “jerking” of 
the screen when this happens is barely noticeable. 


PROGRAM OUTLINE 
The STRINGER program is organized in an unusual way. The pro- 
gram flow is as follows: 
Line 0 jumps to line 90 to avoid the backup routine. 
Lines 90 through 230 produce a title screen. 
Line 235 jumps to Line 5000. 
Lines 5000 through 5250 execute and return to line 235. 
Lines 240 through 250 execute. 
Line 255 jumps to line 3000. 
Lines 3000 through 4170 execute and return to 255. 
Lines 490 through 735 execute as the main program loop. 


An outline of the functions of the program modules is as follows: 


LineNumbers Description 


5-10 Backup routine for keying in program 
90-155 Title screen 
190-255 Initialization and setup 
490-735 Main program loop 
1000-1155 Create 'LIST' statement for string 
2000-2065 Delete character from string 
3000-3075 Set up P/M graphics 
3080-3125 Set up joystick directions 
3130-3305 Set up line number and string name 
4000-4120 Place character set on the screen 
4125-4170 Save entire screen 
5000-5250 Set up machine language routine 


This structure is convoluted, but there are some reasons for this 
setup. The main program loop has been placed at the beginning of the 
program for speed of execution. Also, if the subroutines in Listing two 
are ENTERed into the STRINGER program and executed, all of the 
lines after 5000 can be eliminated. The first step of the initialization 
was placed at the end of the program in anticipation of being 
eliminated! 


Description of Variables 


A Temporary Hold Variable 

CURSOR Address of CURSORS string 

CURSOR$ Holds data for P/M graphics cursor 

COL Current column location of regular cursor 

DISK Flag: 1 if DOS has been loaded, O if not 

DL Location of display list in memory 

DMEM Location of display data for screen 

HORZ Horizontal position of P/M graphics cursor 

HP Memory position pointer for player zero 

| Miscellaneous loop counter 
KEY Value of keypress from GET function 

LENTH Length of STRING$ 

MEM Address of MEMS string 

MEMS$ String which holds machine language routine 
NUMBER Line number for string declaration statement 
OLDV Old vertical position of P/M graphics cursor 

PO Memory location for start of data for player zero 
PMBASE Page pointer for P/M base address 

PR$ Holds string declaration statement from program 
ROW Current row for regular cursor 

SCREEN$ String which holds twenty lines of screen data 
ՅՆ: Value of leftmost joystick 

START Starting index of string variable in program 
STRING$ Holds name of string variable in string statement 
TR Value of trigger of leftmost joystick 

VERT Current vertical position of P/M graphics cursor 
X Used for horizontal cursor movement 

XDIR(15) Horizontal movement data for joystick 

Y Used for vertical cursor movement 

Y DIR(15) Vertical movement data for joystick 

Z Holds value of keypress from PEEK(764) 


SUMMARY 
The STRINGER program is a useful utility for entering string 
declaration statements. In addition, this program illustrates how to 
use several tricks, as well as a machine language routine, to do its 
work more efficiently. Feel free to use these routines in your own pro- 
grams. 
— Rick Groszkiewicz 


835/1030 MODEMS 


(reprint: Aug-Sep 1984 S.P.A.C.E.) 


The following information was obtained on the Atari SIG on Com- 


puServe. It is a condensation of the documentation for a public do- 
main handler for the 835/1030 Atari direct connect modems. The 
handler is available on the N.W. Micronet, (206) 535-2837. When used 
as an AUTORUN.SYS it will allow the use of programs such as 
AMODEM with these modems. 

The difference between modems is the way they handle the OPEN 
and CLOSE statements. Because of timing requirements, an RS232 
device must be turned off if you want to use other peripherals like 
disk drives and printers. 850-based terminal programs do this by ex- 
ecuting a CLOSE channel command before executing any I/O to other 
devices, and then an OPEN channel when they are ready once again 
for terminal |/Օ. 

Unfortunately, a CLOSE channel issued to an 835/1030 modem will 
shut it off, hanging up the phone in the process. There are special 
commands to turn off an 835/1030 modem without disconnecting it — 
"Suspend" and "Resume". In an 835/1030 terminal program, you only 
OPEN the modem once, at the beginning of the program. Suspend 
and Resume commands are used to stop the modem temporarily to 
use other devices. 


835/1030 Specific Commands 
There are 9 commands specific to the 835/1030 modem. They are all 
passed without error, if an 850 is being used (with the exception of 
Suspend and Resume commands which are translated to their 850 
equivalents). T: may need to be substituted for R:, depending upon the 
handler used. 


XIO 73, #channel,0,0,“R:” 
Puts the 835/1030 in Originate mode. 

XIO 74, fichannel,0,0,"R:” 
Puts the 835/1030 in Answer mode. 

XIO 75, fchannel,ASC('4"),0,*R:” 
Dials one digit. The “# represents an ASCII character from 0 to 
9. 

XIO 76, fchannel,0,0,"R:” 
Takes the modem “off hook”. Picture this as taking hold of a 
telephone receiver and lifting it off the hook. Thus, off hook 
means putting the modem “on” the telephone line. 

XIO 77, #channel,0,0,‘‘R:” 
Puts the modem on hook. The opposite of off hook — hangs up 
the 

phone. 

XIO 82, s£channel,0,0,"R:" 
835 modems only: Routes the telephone signal to your TV or 
monitor speaker. Useful to listen in on a dialing sequence to 
hear whether or not the other side answers. 

XIO 83, #channel,0,0,‘‘R:” 
835 modems only: Turns off the TV or monitor speaker. 

XIO 89, #channel,0,0,‘‘R:”’ 
Resume command. See above. 

XIO 90, #channei,0,0,“R:” 
Suspend command. See above. 


Some Usage Points 

1. Before you can execute most 835/1030 commands, you must 
Resume the modem if it has been Suspended. 

2. You should take the modem off hook before beginning a dialing 
procedure. 

3. When using an 835/1030 modem, you can detect when the carrier 
has been dropped. Issue a Status command, and then check memory 
location 746 ($2EA). If the value is greater than 127 (high bit is on) then 
the carrier is present. Bit O of the same location is the hook status (a 1 


means modem is off hook). 
— Tom Neitzel 


65C02 


Optimized Systems has available a CMOS version of the 6502 
microprocessor, called a 65C02, which can directly replace the normal 
6502 in an Atari computer. This chip requires less power, therby runn- 
ing a lot cooler, and for the assembly language programmer, it offers 
27 new OP codes. Currently, however, MAC/65 is the only assembler 
to support these codes unless you write your own Macros, or include 
it via a .BYTE command. Here are the new. commands with a brief 
description of each: 

BRA —branch always. This instruction works like all the other 
branch instructions, except it always branchs, and is therefor like a 
JMP but taking up one less byte of memory and one less cycle to ex- 
ecute. 

INA & DEA. Increment and decrement the Accumulator. Works the 
same as INX, DEX, INY, & DEY. 

PHX, PHY, PLX, PLY. These instructions work like the PLA and PHA 
instructions, only pushing the respective register instead of the Ac- 
cumulator 

STZ. This stores a zero into the following location but doesn't affect 
any register. Address modes available are ABSOLUTE; ABS,X; (ZERO 
PAGE); (ZPG,X) 

TRB. This complements the Accumulator, AND's it with the 
specified memory location, and stores the results in the meory loca- 
tion. 

TSB. This ORA's the Accumulator with the memory location, and . 
stores the results in the memory location. Both TRB & TSB use only 
ABSQLUE and ZEROPAGE addressing 

JMP (ABSOLUTE,X). This instruction takes the absolute address, 
adds the X register, and jumps to that location. It is a very powerful 
way of setting up a table of JMP addresses, which are then indexed 
through the X register. 

Additionaly the BIT instruction has two new addressing modes: AB- 
SOLUTE,X and ZEROPAGE,X. 

There is also a very useful new addressing mode. A common 
assembly language instruction sequence is: LDY #0 
LDA (zero page) Y l 

The new addressing mode is OPCODE (zero page). The Y register is 
not used, but one can use the indirect mode as if Y was set to zero. 
The following instructions can be used with this mode: ADC, AND, 
CMP, EOR, LDA, ORA, SBC, STA. i 


Å Pilgrimage to Mecca 


This past week I attended a seminar in the San Francisco area for 
two days. Since I don't get down to that region very often I took the 
opportunity to plan several meetings while | was there. There was 
much to do, so | scheduled 4 days in the Bay area. 

My first stop was a visit with our friends at ANTIC magazine. You 
may be happy to hear ANTIC will be placing a stronger emphasis on 
USER GROUPS in the future. They will be working closely in this ef- 
fort with MICROBITS and OSS (Optimized System Software) in pro- 
viding meaningful support to the User Groups. ANTIC will also be 
making a special effort to keep you all abreast of the current news 
from or about ATARI. (More about ATARI later). | spent a very pleasant 
afternoon with Jim Capparel and Gary Yost, discussing the User 
Group issue as well as technical goodies such as HARD DISK 
DRIVES, EXPANSION CHASSIS, 80 COLUMN CARDS and RAMDISKS 
for the XL computers. Gary and I had a very pleasant lunch at THE 
WATERFRONT, where the prawns are outrageously delicious. Before I 
left ANTIC, Gary presented me with a copy of "THE BEST OF ANTIC 
volume 1”. In some of my slower moments I have perused this fine 
volume and wish I could give you a review, but am a bit busy as yet. I 
will probably hand this to a TRUSTED member of ACE long enough for 
them to do a proper review next month. 

The next day I visited OSS. Bill Wilkinson and Mark Rose were kind 
enough to devote the afternoon to discussions of exactly which 
features are important to have in a DOS for a PARALLEL HARD 
DRIVE. Bill also demonstrated the new WRITER'S TOOL word pro- 
cessor. 

AT LAST, somebody has a really powerful, DOS compatible word 
processor. (I have always used LETTER PERFECT by LJK, and getting 
my articles ready for submission has been an excercise in self abuse, 
since | normally transmit them over the MODEM.) The WRITER'S 
TOOL has NEARLY ALL of the capabilities of LETTER PERFECT(tm) 
and is user-friendly to boot. Don't get me wrong, I think Letter Perfect 
is still the most powerful word processor available for the Atari, and 
will continue to use it for my personal files, but OSS has another win- 
ner on their hands. 

Friday | left the seminar a bit early in order to meet with BRIAN 
KERR and JOHN SKRUCH, marketing managers of Hardware and 
Software respectively. | went into the meeting with some reservations 
about what | might hear and see, and was very pleasantly surprised. 
Brian and John are both enthusiastic and knowledgeable. They are ex- 
tremely aware of the circumstances resulting in the virtual death of 
ATARI, Inc. and are determined to avoid those pitfalls. There is a new 
spirit at ATARI. indeed, there is a new ATARI at ATARI. Take heart: the 
venerable 800 XL will continue to be produced in quantities, and at 
prices which will probably induce people such as myself to go out and 
buy an extra or two. (spares, you know.) 

The peripheral products the old ATARI released with their equip- 
ment are being evaluated, and those not measuring up will be drop- 
ped, while the company will pick up lines of TOP QUALITY peripherals 
to replace them with. NEW and exciting software is being selected for 
future release. Negotiations are under way with various suppliers, ven- 
dors marketing types and such. 

| expect the January CES to be a banner event for ATARI. | have 
reason to believe they will have some SHOW STOPPERS!! Overall, I 
think the purchase of ATARI by the Tramiel family is probably going to 
be the best thing to happen to Atari since the lamentable take-over by 
WARNER COMMUNICATIONS. After all, If Jack Tramiel can take a 
second-rate turkey of a computer like the COMMODORE 64 and make 
it the NUMBER 1 SELLER among home computers, think what he can 
do with the help of his sons and a FIRST RATE computer like the 
ATARI. 

ATARI USER GROUPS will not be abandoned. Many of you are 
aware the old ATARI spent a small fortune on "support" in the past. 
The support amounted to very little in the way of worthwhile or 
legitimate assistance to the user groups. While the new ATARI is not 
abie to spend large amounts of cash on this, a plan has been 
developed to allow the USER GROUPS, 3RD PARTY VENDORS, and 
ATARI CORP. to mutually help each other to the fullest extent at a 
minimum of cost. ANTIC, OSS, MICROBITS, and CHAOS were heavily 
involved in the development of the new system. You will undoubtedly 
hear more of this in the next few months. 

I came away from San Francisco with a deep sense of relief at the 
attitudes and willingness to commit time and resources displayed 
among those I spoke with. Peace be upon you, my children; all is well 
in the land of ATARI. 

— Kirt E. Stockwell 
Roving past president 


VP's RAMBLINGS 


We have started the new service called BUG BUSTERS. The first 
people to be a part of this new group are listed elsewhere in this 
newsletter. While all but Greg Menke are from the Eugene area we 
hope more members from other states or even countries will volunteer 
to help with this project. 

There isn't too much on the Atari scene right now. But by Christmas 
I think we will see quite abit happening telling us of things to come. 
Although we hear of things nothing concrete has shown itself at this 
point. Let us hope that what we hear will come to pass. 

The BBS is working just fine and while we are getting quite afew 
callers we are not hearing from our members on how you like the 
board and also how about uploading some of the software you 
developed so we can share it with the other callers. Try it, the feed 
back you get might either improve your programs or prompt you to go 
on and do more. - 

Next month Pil tell you about some of the software that costs alot 
but doesn't do much but take your money. 

— LARRY GOLD 


EASING HANDICAPS 
WITH A COMPUTER 


Our school serves the mentally and physically handicapped 
residents of Ashtabula County Ohio and provides individual instruc- 
tion to its students. These children are moderately to severly mentally 
handicapped and/or developmentally disabled (for example Cerebral 
Palsey). 

Atari computers were chosen for their ease of use, low cost, and 
good graphics. These factors continue in importance since commer- 
cial software for the handicapped is limited and expensive. A good 
collection of adaptable programs have been obtained from user 
groups. 

Few publishers of textbooks or software, care to be concerned with 
the needs of a relatively small market. As teachers, we must meet our 
student's needs. With the computer these needs can be met and our 
efforts shared! 

Public domain software currently represents over 8096 of our 
courseware. Low cost and ease of modification have made this possi- 
ble. Our purpose for modifing (or writing) programs is: 

1.Start at appropriate levels. It has to be possible to be fun. 

2.Advance or increase at the right rate (get harder in smaller steps). 

3.Give accurate scoring and level of accomplishment. 

4.Error trap input statements (make it easier and clearer to use). 

Computers have enriched the learning process. The PILOT 
language has been used to author programs and as a easy learning 
language for our students. Our use of computers is classroom based 
and all teachers have access to mobil computer work stations. 

As a special education teacher | have spent a lot of time making up 
materials (such as worksheets) to conform with my students' abilities. 
Although the computer may not be easier to use, once a program is 
entered it is far easier to copy, so appropriate lessons may be shared 
(or changed) at little or no expense. 

Atari is weak in customer service. It lacks the profitability to offer 
extensive support. Yet it is now low enough in cost to make it useful 
for helping an individual student in the classroom. But successful use 
may require some information from users who are willing to share 
their knowledge and experience. This can be an advantage: without 
the profit motive of a sales comission the micro-computer user can be 
guided by more impartial evaluations of programs and equipment. My 
classroom's micro has the position of an individual assistant who 
always understands the child, reinforces (immediately) the correct 
responses, and is enjoyable and encouraging. 

| want to hear from other special users of the Atari. Our programs 
range from pre-school to about 6th grade level. | will be happy to supp- 
ly information about our software and copies of some public domain 
programs. 

Carl Schwartz 

Ashtabula Co. Bd. of MSPR/DD 

2505 South Ridge East 

Ashtabula, Ohio,44004 
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ATARI COMPUTER ENTHUSIASTS EXCHANGE LIBRARY (rev. 
4/15/84) 

The ACE Exchange Library is a service designed to allow 
the sharing of user-written programs. There are two 
ways to acquire programs from the ACE exchange library: 
By ordering the disk(s) you desire and enclosing the 
appropriate amount of money, or by sending us programs 
you have written and wish to share with others, in 
exchange for your choice of any disk in the library. Ue 
strongly support this second way of obtaining programs, 
and will go out of our way to help you share your 
programs with other users. Please see the back page for 
complete details. 


Disks avaliable for double or single density drives. 
Please specify double density with order. 
We have had SOME success with saving programs to tape. 
If you wish to take a chance, indicate your choice is 
TAPE.(Tape option not available for disks marked with 
* 

je 
GAMES DISK #1, $8 
ALIEN--Shoot doun alien ships--simple graphics. 
BLKJCK--a fairly good game of blackjack. 
BOMBERS--Simple game; shoot bombs as they fall. 
CONCEN--the game of concentration. 
DARKSTAR--maneuver your ship to destroy darkstar. 
GALLERY--Good Missile-Player graphics tutorial. 
HORSERAC--bet on your favorites and lose your bankroll. 
MATCHES--a variation on nim. 
MISSILE--protect cities from missiles (40k required). 
MOBSTERS--Shoot before they get you! 
SIMON--repeat after me; great for parties. 
SMASH--all-text car racing game. 
SPY--find the spies hidden in 10 x 10 grid. 
TOUERS--of Hanoi; good thinker-puzzle. 
TTT--tic-tac-toe game. 


GAMES DISK #2, $8 * 

Contains ADVENTURE, by MAX. This disk is weeks of 
adventure by itself. The program allows you to write 
your own adventure, with the extended file generation 
option. 


GAMES DISK #3, $8 

APTITUDE--A cute quiz; test your programming aptitude. 
CIVILWAR--Will the South or the North rise again. Text 
only. 

CLEWSO--Detective game, who murdered the host? 
DOGBITE--Deliver mail without getting bit. Text. 
ELEC--Makes decisions affecting service. Good 
simulation. Text. 

LANDER--ACE lander, by Stan Ockers. Good one! 
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DEMOS DISK #2, $8 

APPLEATR--Atari worm eats bytes out of an apple. 
BOTCH--The newest in acronym-laden language. 
BOOKLIST--Library inventory system; Good program! 
CARDS--Graphics for a card game; no game logic. 
DIALOG--Computer/psychologist conversion. 
HORSE--Graphics; horse running across screen. 
HORSES--R-rated horse running across screen. 
HORSEV--Variable speed horse demo. 

NITEMARE--The day your computer took over! 
STAR--Plots star w/colors in Gr. 7 
STARWARS.MUS--From the movie, arranged by Aaron Ness. 
XMASTREE--Seasonal; good music selection for Christmas. 
VEGAS--Slot machine, by Matt Loveless. 

SCROLL--Video scroll all directions! (requires 40k). 


UTILITIES DISK #1, $8 

ALTUSES--Demonstrates writing/reading an entire screen. 
AUTORUN.CAS--Autorun boot for your cassette programs. 
BUBLSORT--Demonstrates simple, slow sorting algorythm. 
CLOAD.AUT--Automatic cload routine, for your program. 
DATASTMT.GEN--Generates data statements for memory. 
DAYOUEEK--Subroutine determines day of week, given date. 
DECIDUMP--Memory dump in decimal. 

DISASM--Analyze memory with 6502 assembler instructions. 
DISKTAPE--Dump Diskfiles to tape; great for backup, exchange. 
ERRTRAP--Error trapper, describes errors. 

HELP--Read messages, documentation placed on disk by, 
HELP.WRT--Writes text to disk member to generate 
documentation, instructions, etc. 

HEXADEC--Convert hex to decimal. 

HOTSTUFF--Multiple purpose directory-printing menu. 
LABELDSK--Generates small directories to fit on small disks. 
LISTER--To list programs in column-widths using Atari 825, 
MODEM--ACE's Downloader modem program, with improvements. 
NOTEIN & NOTEOUT--Demonstration of NOTE and POINT. 
PEEKER--Looks at memory at specified locations. 
PMGDEMO--Superfast player-missile graphics demo. 
RENUM--One of the best renumbering program we've seen, 
donated by MICROBITS! 

SCREENPR--Screen to print for 825. 

SUPRCOMP--Compares two similar Basic programs with list of 
differences. 


The documentation available for many of the above 
programs is weak at best. We have attempted to code 
instructions into REMs at the beginning of the more difficult 
programs. 


DEMOS DISK 15, 
FUGUE2-Music anyone? 
OCTADRAu-Creative, reflective shapes. 


STARUARP--All-text starwars adventure program. 
TREASURE--Map-search for treasure with clues. Stick 
graphics. 


GAMES DISK #4, $8 

ROBOTUAR--Can you escape?? Two levels of play. 
STARDSTR--Shoot the stars. 

LANDER--Great lunar lander. 

STOPSOUN--Good at sound recognition. 

PRICE--Guess the prices. : 
MISSILE--Protect your cities from missile attack. 
ALIEN--More cities to protect. Four levels of play. 
DOGGIES--Got your thinking cap on. A puzzle from Stan 
Ockers. 


DEMOS DISK 71, $8 

BACKUARD--Demos use of poke to modify screen to print 
upside doun. 

BOW--Graphics plot of 3-leaf bow; good trigonometry. 
BOXDEMO--draus nested colored boxes. 
CHOPSTIX--single-tone music demo. 

CIRCLES--Draws circles; experiment to learn plotting! 
CLOCK.DIG--Oun your very oun computer-controlled digital 
clock! 

ELLIPSE-Draus ellipses. 

ETCHSKCH--Drau on screen; good technique for joystick 
movement. 

ERTHQUAK--Shakes house; or is it the TV? 
GIGGLE--Electronic light show, from Interface Age. 
JAZ2--Multiple voice computer-generated Jazz. 
KEYBOARD--Piano simulation. 

LOGO--128 colored Atari logo on screen. 

MAGIC--Pick a letter; the computer vill tell you which 
one, 

MARQUEE--Put your name in lights, or leave a banner on 
your Atari. 

MOVEABOX--Move a box around screen 
OXYGENE--Computer-generated random sounds. 

PUFF-The magic dragon; music (the dragon's invisible). 
ROCKET--Demo using print stmts and sound. 
SHADING--3-dimensional box changes colors using keyboard 
& setcolor. լ 


BARGRAPH-Display data in bar graph form. 
STAR-Graphic display. 

DIATONIC-Sounds. 

MESSAGE-Use your Atari for a message display. 
STARSHIP-The Enterprise, in full color. 
INVENTORY-Home inventory-using cassette files. 
STRINGAR-Computer generated display. 
MICROTXT-Text editor in basic. 

SOUNDSTK-Experiment with sound using the joystick. 
ADSHOW-Put your message on a moving marque. No size limit. 
POEM-Atari generated poetry. 


UTILITIES DISK #2, $8 

EXAMINE-Look at any Sector on Disk. 

LPOIR-MX-80 printer utility. 

EPSHAND.DEM-MX 80 printer demo. 

MX80.IN1-Test your printer cable. 

TVTEST-Test patterns for your T.V. 
AUTORUN.BLD-Use this program to make your oun AUTORUN files. 
VARIABLE.LST-List variables in Basic programs. 
PLOT825-Use your 825 printer as a Plotter/Printer. 
UPDNLOAD-Data Transfer from the 850 interface. 
QUESTION.FMT-Random question/statement retrevial. 
TIMECLOK-Real time clock runs as you program/play. 


BEST OF MACE, $8 

GRAPH--Demonstration of the 9 text & graphic modes. 
RUNWAY--Landing simulation/game; difficult but fairly good. 
SLIDE--Competitive creative addition game. 

PRICE--The price is right; guess the price: computer gives 
hints. 

CALCNT--Calorie counter--totals calories for a variety of 
foods. 

ENEMY--Get them before they get you; good graphics action. 
STRING.CRE--Create data statements from strings in memory. 
CHU--Demonstration of VERY FAST missile-player graphics. 
SEARCH--A takeoff on the treasure matrix game. 
NUMBER.LI--A number-progression educational game. 
MULT--Multiplication drills. 


SCOPY 810, $15 

ACE is licensed to sell this high quality-fast duplicating 
software. SCOPY will copy a full disk in two passes with 48K 
memory. Multiple copies are even faster. Excellent for club 
libraries, etc. Complete documentation provided. SCOPY is 
not public domain. 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 
Secretary — Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 
Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503— 689-7106. 
Editors — 
Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 / 503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503 / 484-9925 
E.R.A.C.E. (Education SIG Editor) — 
Ali Erickson, 295 Foxtail Dr., Eugene, OR 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary — 
Robert Browning, 90 W. Myoak, Eugene, OR 97404 / 503-689-1513 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line” 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


scining & Design Services 

Ine. ՛ 

30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8" double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov '82 issue 
for complete details. 


